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NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER © 
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TRANSFERRED. : 
is 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
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~SBTTL PROGRAM DESCRIPTION 
FACILITY 

SYSTEM DUMP ANALYZER 
ABSTRACT 


ROUTINE TO READ THE SYSTEM SYMBOL TABLE AND 
MANIPULATE THE INTERNAL SORTED SYMBOL TABLE. 


ENVIRONMENT 

NATIVE MODE, USER MODE 
AUTHOR 

TIM HALVORSEN, JULY 1978 
MODIFIED BY 


v03-010 —MD0100 Ellen M. Dusseault 5 gee 8 a 
Remove temporary fix for formatting the UCB which 
was to increase the max number of symbols to format. 
This round do it the Ay way. Determine the device 
and only display its ucb extensions instead of all 
device extensions. 
Add CLUSGL_CLUB to required symbol table. 
Add SCS aysorss to required symbol table to support 
new SCS displays. 


v03-009 EMD0085 Ellen M. Dusseault 15-Apr-1984 
pee Ab | routine, SORT_OFFSETS, to ignore all constant 
syape s except for the length symbol. Fix problem 
’ tp rorepet tag the UCB (increase max number of symbols 
o format). 


v03-008 EMD0078 Ellen M. Dusseault 10-Apr-1984 
Define symbols to represent the base addresses of 
code in nonpaged pool (such as sysloa,scsloa). 


V03-007 EMD0064 Ellen M. Dusseault 17-MAR-1984 
Add support to FORMAT to recognize symbois which are subtypes 
of a generic code. 


V03-006 PRBO242 Paul Beck 28-DEC-1983 16:22 
Add support to FORMAT for addresses ($A_) 
v03-005 Weber 22-OCT-1983 


ROW0237 Ralph O. 
Add TRANSLATE_ADDRESS to translate a value to an address using 
the contents Of a ADDR_TABLE or TABLE. Add JOCSRETURN to 

List of needed symbols. Also correct ADD_SYMBOL to save R11; 
it corrupts it. 


V03-004 TMHO004 Tim Halvorsen 02-Aug-1983 
Add required symbols needed for IPID/EPID conversions. 
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V03-003 KTA3041 Kerbey T. Altmann 17-Mar-1983 
Add symbol for system block List head. 


v03-002 KTA0103 Kerbey T. Altmann 23-Jun-1982 
Add new symbols for lock tables and channels. 


v001 TMHOOO1 Tim Halvorsen 05-May-1982 
Fix bug in FORMAT which grevenss a Sot a Bloc 
pyeer: from being printed at the end of a “y 
Display $G_ Synpels in FORMAT, so that ran 
format data fields within structures can “y Identified. 
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SYMB SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro v04-00 Page 
v04- SYSTEM SYMBOLS USED IN THE ANALYSIS $78 eats Bh a2i 48 SDA.SRCJSYMBOLS.MAR; 1 ° 
1} -SBTTL SYSTEM SYMBOLS USED IN THE ANALYSIS 
1 3 THIS DEFINES THE SYSTEM SYMBOLS AND THEIR VALUES TO BE 
| 3 USED payer IN THE ANALYSIS OF THE P. ACH ENTRY IS 
1 ¢ ; VARIABLE LENGTH, WITH THE FIRST LONGWORD CONTAINING THE 
123 ; VALUE AND THE REMAINING BYTES HOLDING THE GOUNTED STRING. 
! ¢ ; THE TABLE IS TERMINATED BY A LONGWORD OF -1. 
1 o 
0000 8 ; -PSECT ZREQSYMS,NOEXE,WRT 3 PUT AFTER DATA, BEFORE CODE 
129 -MACRO SYMBOL NAME,OPTIONAL 
130 NAME:: 
131 If B- OPTIONAL 
$ ; LONG ; REQUIRED SYMBOL 
09 : LONG 1 ; OPTIONAL SYMBOL (MAY NOT BE THERE) 
4 1 § eASCIC \NAME\ 
00 1 ~ENDM 
0000 «138 
B008 139 REQ_SYMBOLS: 
000 140 SYMBOL CLUSGL_CLUB ; ADDRESS OF CLUSTER BLOCK (CLUB) 
B919 141 SYMBOL CLUSGL-LOA_ADDR ; BASE ADDRESS OF CLUSTRLOA CODE 
Oe 1g SYMBOL CTLSAL_STACK 3 PROCESS STACKS INFORMAT 
0035 14 SYMBOL CTLSAL_STACKLIM ; PROCESS STACKS LIMIT INFORMATION 
0049 144 SYMBOL CTLS$GL-CCBBASE ; START OF CHANNEL CONTROL AREA 
005C 145 SYMBOL CTLSGL-IMGHDRBF,OPTIONAL ; IMAGE HEADER BUFFER ADDRESS 
978 146 SYMBOL CTLSGW-CHINDX ©; HIGH WATER MARK FOR CHANNEL TABLE 
obs 147 SYMBOL EXESGB_CPUTYPE ; PROCESSOR TYPE CODE 
009 148 SYMBOL EXESGL-NONPAGED ; NON-PAGED FREE LIST HEAD 
00A9 3=-:149 SYMBOL EXESGL_MP 3; BASE ADDRESS OF MP CODE 
0087 150 SYMBOL EXESGL”PAGED 3 PAGED FREE LIST HEAD 
oce 151 SYMBOL EXESGL_RPB 3 RESTART PARAMETER BLOCK ADDRESS 
OD 138 SYMBOL EXESGL-SPLITADR ; ADDRESS OF IRP LOOKASIDE POOL 
O&B «15 SYMBOL EXESGQ"SYSTIME ; SYSTEM ABSOLUTE TIME IN NANOSECONDS 
OF 154 SYMBOL EXESAL_STACKS ; SYSTEM STACK INFORMATION 
11 155 SYMBOL EXESGL-INTSTK ; ADDRESS OF INTERRUPT STACK 
13 156 SYMBOL EXESMCAK 3 ADDRESS OF MACHINE CHECK TRANSFER VECTOR 
12F 836.157 SYMBOL JIOCSGL_DEVLIST ; HEAD OF DDB LIST 
13¢ 158 SYMBOL JIOCSGL"DPTLIST ; HEAD OF DPT LIST 
15 159 SYMBOL LOCSGL _IREENT 3; NUMBER OF IRP ENTRIES AVAILABLE 
167 160 SYMBOL IOCS$GL_IRPFL 3; IRP FREE LIST HEAD 
178 =161 SYMBOL IOCSGL"LRPCNT ; NUMBER OF LRP ENTRIES AVAILABLE 
18A 16¢ SYMBOL IOCSGL"LRPFL > LRP FREE LIST HEAD 
198 16 SYMBOL JIOCSGL_LRPSIZE ; LRP PACKET SIZE 
15 164 SYMBOL IOCSGL"LRPSPLIT ; ADDRESS OF LRP LOOKASIDE POOL 
1C 165 SYMBOL IOCSGL"SRPCNT ; NUMBER OF SRP ENTRIES AVAILABLE 
1D4 196 SYMBOL IOCSGL_SRPFL ; SRP FREE LIST HEAD 
165 16 SYMBOL IOCSGL"SRPSIZE ; SRP PACKET SIZE 
1F8 18 SYMBOL IOCSGL-SRPSPLIT ; ADDRESS OF LRP LOOKASIDE POOL 
020C 18 SYMBOL IOCS$RETURN : 1/0 SYSTEM RSB ROUTIN 
1B 9 SYMBOL LERSGL_WASHTBL 3 ADDRESS OF THE LOCK HASH TABLE 
ef 17 SYMBOL LCKSGL-HTBLCNT ; COUNT OF HASH TABLE ENTRIES 
4 16 SYMBOL LCKSGL~IDTBL ; ADDRESS OF THE LOCK ID TABLE 
28 17 SYMBOL LCKSGL_MAXID 3; MAXIMUM LOCK ID 
6 174 SYMBOL MMGSAL“SYSPCB =; ADDRESS OF SYSTEM PROCESS HEADER 
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SYMBOLS USED TO EXAMINE CURRENT RUNNING SYSTEM 


SYMBOL EXESALLOCBUF ALLOCATE NON-PAGED STORAGE 
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SYMBOL MMGSFRSTRONLY ; ADDRESS OF READ-ONLY EXEC CoD 
SYMBOL MMG IMGHORBUF + IMAGE HEADER BUFFER (Pl SPACE 
SYMBOL MMGSGL_GPT ; FIRS? GLOBAL PAGE TABLE ENTRY 
SYMBOL MMGSGL-MAXGPTE ; MAXIMUM GLOBAL PAGE TABLE ENTRY 
SYMBOL MMGSGL-MAXPFN  ; MAX PFN COVERED BY PFN DATA BASE 
SYMBOL MMGSGL-RMSBASE ; ADDRESS OF RMS CODE 
SYMBOL MMG GL~SVSLOA_BAGE ; ADDRESS OF SYSLOA CODE 
SYMBOL MMGS$GL“FPEMUL-BAS + ADDRESS OF FPEMUL CODE 
SYMBOL MMG$GL-VAXEMUL_BASE : ADDRESS OF VAXEMUL CODE 
SYMBOL MMG$GL~SBR ; PHYSICAL ADDRESS OF SPT 
SYMBOL MMGSGL-SPTLEN ; LENGTH OF SPT IN PAG 
SYMBOL MMGSGL-SPTBASE : ADDRESS OF SysTEM PAGE TABLE 
SYMBOL MMGSGL— + ADDRESS OF SYSTEM PROCESS HEADER 
SYMBOL MMGSGL-NPAGEDYN ; ADDRESS OF NON-PAGED POOL 
SYMBOL MMGSGL-NPAGNEXT ; ADDRESS OF END OF NON-PAGED POOL 
SYMBOL MMGSGL-PAGEDYN ; ADDRESS OF PAGED POOL 
SYMBOL PIOSGW-IIOIMPA ; ADDRESS OF 1/0 IMPURE AREA 
SYMBOL PFNSAB-STATE ; CURRENT STATE OF PAGE FRAME 
SYMBOL PFNSAB-TYPE : TYPE OF PAGE FRAME ENTRY 
SYMBOL PFNSAL~BAK + BACKING STORE ADDRESS 
SYMBOL PFNSAL-HILIMIT ; MAXIMUM THRESHOLD FOR PAGE LISTS 
SYMBOL PFNSAL-LOLIMIT ; MINIMUM THRESHOLD FOR PAGE LISTS 
SYMBOL PFNSAL~PTE + ADDRESS OF PROCESS PTE 
SYMBOL PFNSAX"BLINK ; BACKWARD PAGE LIST LINK 
SYMBOL PFNSAX-FLINK 3 FORWARD PAGE LIST LINK 
SYMBOL PFNSAL "HEAD + HEADERS FOR PAGE LISTS 
SYMBOL PFNSAWREFCNT ; REFERENCE COUNT FOR PAGE 
SYMBOL PFNSAX~WSLX t WORKING SET LIST INDEX 
SYMBOL PFNSA_ BASE : BASE ADDRESS OF PFN ARRAYS 
SYMBOL SCHS$GC_CURPCB ; CURRENT PCB ADDRESS 
SYMBOL SCHSGL-FREECNT ; ADDRESS OF PAGE LIST COUNTS 
SYMBOL SCH$GL~PCBV + VECTOR OF PCB ADDRESSES 
SYMBOL SCHSGL"MAXPIX ; MAXIMUM PROCESS INDEX 
SYMBOL SCSSGA_EXISTS ; ADDRESS OF SCSLOA CODE 
SYMBOL SCSS$GA"LOCALSB ; LOCAL SYSTEM BLOCK 
SYMBOL SCS$GL~CDL + CONNECTION DESCRIPTOR LIST 
SYMBOL SCS$GL-MSCP : ADDRESS OF MSCP CODE 
SYMBOL SCS$GL~PDT ; PORT DESCRIPTOR TABLE 
SYMBOL SCS$GL~RDT ; RESPONSE DESCRIPTOR TABLE 
SYMBOL SCS$GQ-CONFIG ; SYSTEM BLOCK LIST HEAD 
SYMBOL SCS$GQ"DIRECT ; SCS DIRECTORY 
SYMBOL SGNSGL“PAGEDYN ; LENGTH OF PAGED POOL 
SYMBOL SGNSGW-ISPPGCT : INTERRUPT STACK PAGE COUNT 
SYMBOL SUPSA_RSTK : ADDRESS OF SWAPPER STACK 
SYMBOL SWPSK"KSTKSZ ; LENGTH OF SWAPPER STACK 
SYMBOL SYS$GO_VERSION ; VERSION OF SYSTEM (E.G. 6.01) 
SYMBOL EXESDEANONPAGED ; DEALLOCATE NON-PAGED STORAGE 

SYMBOL EXESMCHK PRICT ; MACHINE CHECK PROTECT 

SYMBOL PHV$GL_PIXBAS =: ADDRESS OF BALANCE SLOT TO PIX WORD ARRAY 

SYMBOL SCHSQAST + QUEUE AN AST TO ANOTHER PROCESS 

SYMBOL SCHSWAKE : WAKE A PROCESS 

SYMBOL SCHSWAITK + PLACE PROCESS IN WAIT QUEUE 

SYMBOL ScH$GQ_SUSP + SUSPEND WAIT QUEUE HEADER 
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0 EPID’ ; IPID TO EPID CONVERSION ROUTI 


0000067C REQ_SYMBOLS_LEN = . = REQ_SYMBOLS 
3 4D 52 4°01 Res: “ASEID *RMS' ; STRING FOR SYMBOL ‘‘RMS"’ 
4B 48 43 4D 68F ‘01 : comme eASCID = ‘MCHK' : STRING FOR SYMBOL ‘'MCHK"’ 
5 “8 01 7 «ASCID ‘MP’ + STRING FOR SYMBOL ‘MP 
52 54 53 55 4C€ 4 ‘i +: ' H 4 | Fe raLon: «ASCID ‘CLUSTRLOA’ : STRING FOR SYMBOL ‘‘CLUSTRLOA’* 
50 $3 33 40 2 E * O6AE -ASCID ‘MSCP' STRING FOR SYMBOL ‘SCP’ 
of 55 4D 4 46 6Ce°O10E M A ta FPEMUL : -ASCID ‘FPEMUL' STRING FOR SYMBOL ‘‘FPEMUL*’ 
55 4D 45 58 41 56 *010€ ? ’ ene 45 VAXEMUL: «ASCID = "VAXEMUL' STRING FOR SYMBOL ‘'VAXEMUL"' 
41 4F 4C 3 59 33 464 eH E 05° D $48 SYSLOA: -ASCID ‘SYSLOA' STRING FOR SYMBOL ‘'SYSLOA'' 
41 4F 4C 53 43 00006ED'010E0000' O6E5 47 SCSLOA: ASCID "SCSLOA' STRING FOR SYMBOL *‘SCSLOA"’ 
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oF 4 »SBTTL UCB DEVICE EXTENSIONS 
bF DEVCLASS bs a F 
AF RDDR_TABLE BCs »<o 
oF <DISK,UCB_DT>,- ; disk and tape routine to check validity 
6F : Senn Ureo tee - ; disk and tape 
6F phys TERM>, = i; routine for terminal devices 
bF § <BUS ,UCB_BUS>,- ; routine for network devices 
F <MAILBOX7UCB_MAIL>,-  ; routine for mailbox devices 
: < JOURNAL , UCB~ JOURNAL >= i; routine for journal devices 
B 
8 4 DEVICE_ROUT: 
00000000 8 5 -LONG 0 i; will contain address of device 
: 6 3; dependent routine 
: és : Define the device extensions of the UCB 
4C 4E 4A 00000737'01 3 . F ¢9 JOURNAL _EXT: ~-ASCID = ‘JNL* ; ALL journal extensions be ucb$x_jnl_xxx 
0 A 4: ~ LONG i; Denotes end of table 
42 4D 00000746'01 . if 8 MAILBX_EXT: yy MB‘ ; ALL mailbox extensions be ucb$x_mb_xxxx 
54 4E 00000754" 3 ? $f rt NETMBX_EXT: ~ASCID Syre } Network Mailbox 
54 54 00000762' E . aA ig LTERM_EXT: SASCID ore ; Local terminal extension prefixes 
$f 4 Oboe *O10E * 0764 74 -ASCID ‘TL’ ; TL - Logical Termina 
50 54 776'01 3 . ree o ra ‘TP’ ; Terminal Port Driver Dependent 
' ae 
$f $$ th 10€ * 077¢ 5§ RTERM_EXT «ASCID ae ; TL - Logical Terminal 
54 : ; 4 78E‘'O10E . hy 8 -ASCID ‘RTT’ i; Remote Termina 
44 0799° H 3 . 4 a} 7 a ey" ; CTERM Driver Only 
49 4E 000007A7'01 . * 079F ; BUS_EXT: SASCID Curt ; NI Device 
00 14 § . LONG 0 
' H 
07AD 4 ; The device extensions for disks,tapes, and error Logging do not have a common 
07AD 5 ; prefix for all its symbols. Thus we are forced to list each symbol and do 
07AD § 3 @ compare of the current symbol ogg tact all. I know it is brute force but | 
07AD 3 can not think of any other way. f a symbol for these devices gets added 
O7AD 3 3; to the qutone iene in Sucbdef, it will have to be added here also if it is 
Brad 3; to be displayed by format. 
7 7 
D7AD 3 Errorlog_ext: 
45 56 41 4 33 te 10€ * QO7AD 38 at+31 4 *SLAVE' 
5 7C2°O10E * 0O7BA 4 -ASCID ‘SPR 
45 4 7CD‘O10E * O7¢ 94 -ASCID ‘FEX' 
45 4 70 . 10E . 07D 95 »ASCID *CEX® 
cs 248 $2 HERS SEARED, Spe 3h TERR 
a5 30 de ZFA‘OIDEOOOO' O7Fe 98 ~ASCID "DPC 
45 4C SF 4C 45 tt } [ 4 7FD 9 eASCID ‘ERL_LENGTH" 
0000000 0 oF 9 -LONG 0 
i] 
42 44 44 5F 1B‘O10E i ; Disks.tapes: i P_DDB 
9 ' HAR : ® a 
of $4 t4 $F $8 $8 goppanvecsigennag: BRIE SEP RRS zpoper. 
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4 F 
41 SF 50 32 0v000838" 24% ' 305 ASCID "2P_ALTUCB" 
53 52 49 44 £0000' -ASCID "DIRSEQ! 
a3 at Of GF F S0000837' 0 OF ' O8GF 309 "ASCID «"ONLCNT' 
42 5 10 * 0850 508 "ASCID © "MAXBLOCK’ 
4F 63 45 $2 1 £0 * 0860 -ASCID "RECORD! 
tb $8 23 26 spoonbas* oi oe OmoO" 8 $33 "ASCID "MAXBCNT* 
42 43 43 44 00000892'01 ' 088A 31 .ASCID "DCCBY 
ce a ae 
yes 
42 G4 44 43 00000BA2*010E0000" OBA S15 PHT accry weppge 
43 SF 50 $3 itd naat O09 ' AG 16 ASCID Sp  eppe: 
42 44 44 43 0000088D' ae £0000" 0883 317 ASCID "CDDB_LINK* 
54 44 43 00000 oth * O8C 1 SASCID "CDT" 
54 29 ce $8 poonoaee oto 00° of i§ TASCID "UNIT_ID* 
50 43 53 4D 000008E8'010 9069 * O80 320 .ASCID "MSCPUNIT® 
54 49 4E 55 00000858*010E0000" FO 321 .ASCID "UNIT_FLAGS' 
50 43 53 4D 90000 Hee $08 322 .ASCID "MSCPDEVPARAM' 
54 49 41 57 sssatiad x 60" 916 323 .ASCID "WAIT_CDDB' 
$6006006 97 324 LONG 0 
928 $26 LDISK_exT: 
49 44 45 4D 00000933'010E0000" 09 LASCID "MEDIA' 
2 43 42 00000940°010E0000" 09 8 “ASCID ‘BCR' 
3 43 4 94B'010E0000' 094 "ASCID "EC" 
2 43 45 O95¢° 10£0000' 094 0 "ASCID "EC2" 
53 46 46 4F *010€0000' $38 1 "ASCID = “OFFSET' 
LE 46 46 GF F*010E0000" 096 é "ASCID «"OFFNDX' 
52 46 46 GF 970*01060000" 0978 "ASCID ‘OFFRTC' 
42 5F 98 44 00000988°010E0000" 09 4 "ASCID "DX_BUF® 
42 SF 58 44 999°O1060000" 0991 5 “ASCID "DX7BFPNT* 
t 
52 SF 5B 44 O00009A9"010E000G" O9A1 336 .ASCID "DX_RXDB" 
42 SF 58 44 8'010E0000' 0980 ? .ASCID "DX_BCR' 
og oF 28 o2 poodosce' gt £000 * 098 335 “ASCID "DXTSCTCNT® 
. 
80000000 09¢k 339 LONG 0 
0903 340 
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SDADATA,NOEXE ,WRT 
; POINTER FOR SCANNING STB FILE 
1 + RESULT DESCRIPTOR FOR 
1 : ‘'SYMBOLIZE"’ ROUTINE 
1 ; SYMBOL VALUE TREE ROOT 
1 ; ALPHABETIC TREE ROOT 
1 ; NUMBER OF SYMBOLS IN TABLE 
2 ; STARTING/ENDING ADDRESSES 
2 ; DESCRIPTOR OF STRUCTURE NAME 
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SYMB SYSTEM SYMBOL TABLE ROUTINES Ig- SEP-1984 01:47:14 AX/VMS Macro V04-00 Page 13 
v04- REWIND_STB = REWIND SYSTEM SYMBOL TABLE SEP=1984 03:34:35 [CSDA.SRCJSYMBOLS.MAR; 1 (7) 
ith .SBTTL REWIND_STB - REWIND SYSTEM SYMBOL TABLE FILE 
1 449 ; 
4 0 ; REWIND_STB 
1 4 ; : THIS ROUTINE INITIALIZES THINGS SO THAT ANOTHER PASS 
4 33 CAN BE MADE OVER THE SYSTEM SYMBOL TABLE FILE. 
i : INPUTS: 
4 $ : NONE 
435 : OUTPUTS: 
1 461; THE FILE I$ REWOUND. 
46¢ ; STB_PTR = 0 TO INDICATE NO RECORDS READ YET. 
+ 
138 466 REWIND_STB: : 
0000 ; 467 «WORD 0 
013A 469 ; SREWIND STB ; REWIND ACTUAL FILE 
o1 A 470; SIGNAL RMS,STB 
00000000'EF 04 O13A 471 CLRL STB’ PTR ; INITIALIZE SCAN POINTER 
04 0140 472 RET 


53 00000000'EF 
52. 22 AS 
2 000'C2 
51 enaenead 4 


51 00000000'EF 
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16-SEP-1984 01:47: 
MBOL ENTRY F 5=SEP=1984 3:90:58 
~SBTTL GET SYMBOL = GET NEXT GSD SYMBOL ENTRY FROM STB 


GET_SYMBOL 


THIS ROUTINE GE 
ENTRY FROM THE 


AX/VMS Macro V04-00 
SDA.SRCJSYMBOLS.MAR; 1 


TS THE NEXT GSD-SYMBOL DEF INTION 
SYSTEM SYMBOL TABLE FILE. 
TER TO THE NEXT GSD ENTRY IN THE RECORD 
ERO IF THE FILE IS REWOUND. 

SE IF END OF FILE IS REACHED, ELSE TRUE 
NTER TO THE SYMBOL DEFINITION ENTRY 
“M<R2,R3,R4,R5> 
STB,R3 
RAB$W_RSZ(R3),R2 ; GET LENGTH OF RECORD 
STB_BOFFER(R2) ,R2 : ENDING ADDRESS OF RECORD 

TB-PTR,R1 : GET BUFFER POI 

0$ + BRANCH IF VALID 

(R3) : GET NEXT STB RECORD 
RO, #RMS$_EOF : CHECK FOR END OF FILE 

15$ : IF NOT, GO ON 
RO : INDICATE FAILURE 
RMS, (R3) ; CHECK FOR RMS ERROR 
STB BUFFER,R1 : INITIALIZE POINTER 
OBJSB_TYPE(R1),#OBJ$C_GSb ; ONLY LOOK AT GSD RECORDS 
10$ ; BRANCH IF NOT GSD RECORD 
RABSW_RSZ(R3) ,R2 : GET LENGTH OF RECO 
R1,R2 : ENDING ADDRESS OF RECORD 
R1 : SKIP RECORD IDENTIFICATION 
R1,R2 ; CHECK IF END OF RECORD 
10$ : BRANCH IF SO 
OBJ$B_GSD_TYPE(R1),RO ; GET GSD ENTRY TYPE CODE 
OBJ$C~GSD"PSC EQ 0 
OBJ$C“GSD"SYM EQ 1 
OBJ$C"GSD"EPM EQ : 
OBJ$C~GSD"PRO EQ 
R TPE =8 - ; CASE ON GSD ENTRY TYPE CODE 
<36$,25$,40$, 10$> 
R ; OUTPUT UNKNOWN TYPE 
1,BADGSD > UNKNOWN TYPE OF GSD ENTRY 
16$ > SKIP TO NEXT RECORD 


OBJ$C_GSD_SYM - GLOBAL SYMBOL DEFINITION 


— | 


YSTEM SYMBOL TABLE ROUTINES 16-SEP-19 AX/VMS Macro V04-00 Page 15 
ET_SYMBOL = GET Key GSD SYMBOL ENTRY F g- -SEP- 1382 8}: $i } SDA.SRCJSYMBOLS.MAR; 1 
1502 al 01 €1 Ics 25$: BBC #OBJ$V_SYM_DEF (oeysw SYM_ -FLAGS(R) 278, : BRANCH IF REFERENCE 
09 Al A OIC MOVZBL OBJ$T_SYM_RAME(R1) RD GET L NGTH 0 RING 
Q0000000'EF OA A140 9E C6 MOVAB OBJ$T~SYM-NAME+1(R1) RO]: sf5. tf Ore KIP sagt ENTRY 
1D 4 STATUS SUCCESS 
04 1p¢ RET 
1D § : OBJSC_GSD_SYM = GLOBAL SYMBOL REFERENCE 
50 04 A1 9A O1DD § e7$: MOVZBL OBJ$T_SYM_NAME=5(R1) RO LENGTH OF STRING 
51 05 A140 H 161 540 08181. SYM~NAME=5+1(R1) rb1.R SKIP PAST ENTRY 
s|..4 IE 41 a bow TINUE SEARCHING 
H ‘§ ; OBJ$C_GSD_PSC = PSECT DEFINITION 
50 O08 Al 9A OIE 45 $0$:  MOVZBL OBJ$T_PSC_NAME(R1) RO ; GET LENGTH OF STRING 
51 09 A140 9E O1EC 46 MOVAB OB $T- PSC"NAME+1(R1)CROI,R1 + SKIP THIS ENTRY 
A611 iF 4 BRE $ : CONTINUE SEARCHING 
IF ‘3 : OBJ$C_GSD_EPM - ENTRY POINT AND MASK DEFINITION 
50 OB Al 9A OIF 51 os: MOVZBL OBJ$T_EPM_NAME (R1) RO ; LENGTH OF NAME 
Q00000000'EF OC A140 9E OTF 58 MOVAB  OBJST~EPM”NAME+1(R1)(ROJ.STB PTR ; SAVE POINTER 
00 553; THE yfOLLOWING “WAKES THE EPM ENTRY LOOK Like A ASYM ENTR 
51 pd 0200 554 R1 ; SAVE POINTER 0 ENT 
50 66 60202 «= «555 tt ty RO LENGTH OF EGUNTED STRING 
09 Al OB Al 50 28 0204 336 MOVC RO, OBJ$T_EPM_NAME(R1), oaist SYM_NAME(R1) 
51 BE DO 020A 55 MOVL (SP)+,R1~ RESTORE POINTER TO ENTRY 
9200 558 STATUS success 
04 0214 559 RET 


MBOL TABLE ROUTINES SEP=1984 01:47:14 VAX/VMS Macro V04-00 p 
7 Ot ADD EYRODL TH SYMBOL TABLE ScSEP=1oBe OSidecss Fepaveacteymbor Ss macs 1 — 


.SBTTL ADD_SYMBOL == ADD SYMBOL TO SYMBOL TABLE 
1 : 
64 ; ADD_SYMBOL 
‘ ; THIS ROUTINE ADDS A SYMBOL TO THE LOCAL SYMBOL TABLE. 
8 : INPUTS: 
1 $3 ; 4(AP) = LENGTH OF SYMBOL 
1 71: B(AP) = ADDRESS OF SYMBOL 
13 fe : 12(AP) = SYMBOL VALUE 
1 : RELOCATE_BASE = SYMBOL RELOCATION BASE (NON-ZERO ON READ/RELOCATE) 
4 ; (ONLY USED ON NEW SYMBOLS, NOT ON SYMBOL REPLACEMENTS) 
0 i: — 
OFFC § 15 28 .ENTRY ADD SYMBOL 
021 7 £RS.R6.R7.R8.R9.R10.R11> 
O517 abt 
0 7 38¢ ; TRUNCATE SYMBOL TO 31 CHARACTERS 
woe He OR 4 HEE athe BRANCH IF HIG PROBLEM 
04 AC 1F BO 0210 586 MOVW #31,4(AP) + TRUNCATE TO 31 CHARACTERS 
Bs) gH 
0 389 ; SEARCH SYMBOL TABLE TO SEE IF ALREADY EXISTS 
57  00000010'EF 09 6 1 $31 : MOVL  ALPFL,R7 ; ROOT OF ALPHA SORTED TREE 
26 13 0228 9¢ 10$:  BEQL 508 + BRANCH IF NOT IN SYMBOL TABLE 
56 OA A? 00 6 A 38 MOVL NODESL_PTR(R7),R6 ADDRESS OF SYMBOL TABLE ENTRY 
50 04 Ab QA 94 MOVZBL SYMST_SYMBOL (R6) /RO LENGTH OF SYMBOL 
50 20 08 BC 04 aC 2D 6 595 CMPCS 4(AP)TAaB(AP),#*A" ',RO,SYMST NEYRBOL+1 (Re) 
0D 13 0 B 596 BEQL 40% ; BRANCH IF FOUND 
05 1A 30 397 BGTRU 208 ; BRANCH IF GREATER 
57 67 00 O23F 598 MOVL NODESL_LEFT(R7),R7 + GO TO LEFT BRANCH OF TREE 
4 11 0 42. 599 BRB + CONTINUE DOWN TRE 
57 04 A7 DO 0244 600 208:  MOVL = NODESL_RIGHT(R7).R7 : GO TO RIGHT SIDE OF TREE 
DE 11 48 : 1 BRB 10$ : CONTINUE DOWN TREE 
4A 6 § ; SYMBOL ALREADY EXISTS, SIMPLY RE-DEFINE VALUE 
66 OC AC 00 026A 605 408: MovL J2 (AP) . SYMSL_VALUE(R6) : RE-DEFINE SYMBOL 
20 11 024 : : BRB 90$ + AND EXIT 
3 608 : CREATE NEW SYMBOL TABLE ENTRY (RELOCATING VALUE, IF NECESSARY) 
52 04 AC 7D 3 610 50$: mova  4(AP),R2 ; GET DESCRIPTOR OF SYMBOL NAME 
54 OC AC OD 54 611 MOVL 12(APS,R4 ; AND GET VALUE OF SYMBOL 
00000000'EF 0 38 61g TSTL RELOCATE_BASE ; ARE WE RELOC 
1 1 BEQL si ; BRANCH IF NOT 
50 54 FO8F 7 60 614 ASHL  #-16,R4,RO : GREATER THAN 16k? 
ea 65 615 BNEQ 4 t ONLY RELOCATE PROGRAM OFFSETS 
54 Q0000000'EF ¢ 67 616 ADDL = RELOCATE_BASE,R4 : RELOCATE THE SYMBOL 
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gratus SUCCESS 
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9Be B3:30:53 EDAYSR CHE 
; ADD NEW SYMBOL 
; RETURN SUCCESS 


cro V04-00 
YMBOLS. ane; 1 


TABLE ENTRY 


H § 
SYMB SYSTEM SYMBOL TABLE ROUTINES S p=! 4 AX/VMS Macro Vv04-00 Pp 1 SY* 
v04= ADD_NEW_ENTRY, ADD NEW ENTRY TO TABLE "er 138 83: i i YoDA. SRCJSYMBOLS.MAR; 1 age 610) v04 
; -SBTTL ADD_NEW_ENTRY, ADD NEW ENTRY TO TABLE 
, 5 ; INSERT A NEW SYMBOL TABLE ENTRY INTO THE SYMBOL TABLE 
, 5 : INPUTS: 
78 «6 § : R /R3 = DESCRIPTOR OF SYMBOL 
f 6 0 ; = SYMBOL VALUE 
, : ; OUTPUTS: 
, 6 4 3 SYMBOL ENTRY INSERTED INTO CORRECT POSITION 
7 6 : ; R2-R5, RB-R11 DESTROYED. 
78 639 ADD_NEW_ENTRY: 
4 DD 0278 640 PUSHL #SYM$C_LENGTH : LENGTH OF BLOCK 
00000304 "EF 1 FB O27A 641 CALLS #1,ALLOCATE ; ALLOCATE A SYMBOL TABLE yENTRY 
8 51 »00 1 646 Ri. a : SET ADDRESS OF NEW ENT 
24 D 4 64 MOVL  R4,SYMSL_VALUE(R8) ; STORE VALUE 
04 as ‘ 9 7 644 MOVB Rg.81 ‘SYM MST. SYMBOL (RB) SET SYMBOL LENGTH 
05 a8 63 52 2 88 645 MOVC3 ),SYMST_SYMBOL+1(R rb) 
00000014"EF 06 30 646 INCL HEE EN 'g ; INCREMENT NUMBER OF SYMBOLS 
36 648 : INSERT ENTRY INTO ASCENDING VALUE ORDERED TREE 
59 Q000000C'EF DO 0296 650° MOVL  SYMFL ; INITIALIZE AT ROOT OF TREE 
5B BF'AF 9 0 90 651 MOVAB Seer b Ree _VALUE ,R11 ; ADDRESS OF COMPARE ROUTINE 
40 1 Al 63¢ BSBB-—Ss INSERT ; INSERT INTO VALUE TREE 
Oo00000C'EF 59 OD AS 633 MOVL  R9,SYMFL : SET NEW ROOT OF TREE 
AR 639 : INSERT ENTRY INTO ASCENDING ALPHABETICALLY ORDERED TREE 
59 00000010 EF DO § AA g2s . MOVL ALPFL ; INITIALIZE AT ROOT OF TREE 
5B OC7 "AF H 0281 658 MOVAB BE COMPARE _ALPHA,R11 ; ADDRESS 0 F COMPARE ROUTINE 
2 1 BS 659 BSBB _—CINSER t INSERT INTO A TREE 
00000010'eF 59 DO O2B7? 660 MOVL = RY, ST PFL : SET NEW ROOT br WORE 
05 O2BE 661 RSB 
| 
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COMPARE SYMBOL ENTRIES BY $73Eb=1 obc 85:40:58 SDA. SRCIJSYMBOLS .MAR; 1 ” (11) 


«SBTTL COMPARE VALUE, COMPARE SYMBOL ENTRIES BY VALUE 


COMPARE THE VALUES OF 2 ENTRIES 
INPUTS: 


Rg = ADDRESS OF SYMBOL TABLE ENTRY TO BE INSERTED 
R9 = ADDRESS OF CURRENT NODE 
OUTPUTS: 


PSL CONDITIONS SET. 


CP Se Re Be Oe Oe Oe Oe Oe Oe Oe Oe Be ee 
' 


MOVL NODESL_PTR(R9) 


R2 ; ADDRESS OF SYMBOL TABLE ENTRY 
CHPL SYMSL_QALUE (R85 , SYMSL_VALUE (R2) 


23 


5 
COMPARE SYMBOL ENTRIES BY 'S-SEP-19be OS:34:85 EspacsacsvmBoLs-man:1 8° (99) 
.SBTTL COMPARE_ALPHA, COMPARE SYMBOL ENTRIES BY NAME 


COMPARE THE STRING NAMES OF 2 ENTRIES 


+ INPUTS: 

: RB = ADDRESS OF SYMBOL TABLE ENTRY TO BE INSERTED 

; R9 = ADDRESS OF CURRENT NODE 

: OUTPUTS: 

: PSL CONDITIONS SET. 

COMPARE _ALPHA: 
MOVL  NODESL_PTR(R9).R ; ADDRESS OF SYMBOL TABLE ENTRY 
CMPB Syst SYMBOL+1(RS),SYMST. SYMBOL +1 (R2) CHECK | 1ST CHAR 
BNEQ 0$ | BRANCH THAT arg 
MOVZBL SYM$T_SYMBOL (RB) ,RO + GET CENGTH ert 
MOVZBL SYMS$T~SYMBOL(R2).R1 ET LENGTH oF OORREN NT NAME 
CMPCS RO, SYAST_SYMBOL+1(R yas ; COMPARE STRINGS 


R1,SYMST_SYMBOL +1 (R2) 


K § 
SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro V04-00 Pa 
INSERT, RECURSIVE Four ine FS INSERT INTO $73 EE- 1382 Bhi 37i 48 SDA. SRCJSYMBOI,S.MAR; 1 - a, 
.SBTTL INSERT, RECURSIVE ROUTINE TO INSERT INTO TREE 
: INSERT 
; RECURSIVE SUBROUTINE TO INSERT THE NEW NODE INTO THE TREE 
E 13 : INPUTS: 
E 9 ; R&8 = POINTER TO NEW SYMBOL TABLE ENTRY 
E 18: R9 = POINTER TO CURRENT NODE IN TREE 
: R11 = ADDRESS OF ROUTINE TO COMPARE NEW AND CURRENT KEYS 
E : OUTPUTS: 
‘ ; : R9 = NEW POINTER TO CURRENT NODE IN TREE 
E 5° 
59 DS O2E g INSERT: TSTL 9 ; NULL POINTER? (BOTTOM OF TREE) 
19 12 : , BNEQ 108 + BRANCH IF NOT 
E f : ; REACHED BOTTOM OF TREE - INSERT INTO TREE AT BOTTOM 
— oD Oc&7 731° PUSHL #NODESC_LENGTH : LENGTH OF NODE 
00000506 *EF et 9 7 ¢ CALLS #1,ALLOTATE ; ALLOCATE A NEW NO 
1 »D FO. 7 MOVL + SET ADDRESS OF NEW NODE | 
OA AD «458 D FS) 734 MOVL RB sNODESL PTR(R9) : SET OF SYMBOL ENT 
69 7C O2F? 735 CLRQ NODESL_LEFT(R9) : ZERO LEFT AND RIGHT POINTERS 
08 Ao «6B4 OC(OeFO 7 : CLRW bint in “BAL(ROD : SET BALANCE TO ZE 
50. (01 B60 FCO? MOVL #1,R0~ + INDICATE NOT BALANCED 
FF g : RSS 
740 : CHECK IF KEY IS TO THE LEFT OR RIGHT SUBTREE 
ee 16 14 10$:  JSB (R11) : COMPARE KEY ON CURRENT NODE 
67 1A 74 BGTRU 2008 + BRANCH IF TO THE RIGHT SIDE 
4 oe : BEQL 00$ + BRANCH IF ALREADY EXISTS 
4 146 ; INSERT THE NODE INTO THE LEFT SUBTREE 
59 DD 4 48 : PUSHL R9 ; SAVE pPOINTER OF FATHER 
59 69 ~*D 06 74 MOVL NODESL_LEFT(R9).R9 ; SETUP POINTER TO LEFT SON 
5 1 750 BSBB Ss INSERT : INSERT INTO LEFT SUBTREE 
51 D f MOVL R9,R1 + SAVE NEW ADDRESS OF SUBTREE 
9 BED F POPL 9 ; RETURN TO FATHER NODE 
69 51° »D 7 MOVL  R1,NODESL_LEFT(R9) ; POINT TO NEW LEFT SUBTREE 
0 14 4 BLBS RO 110$ ; BRANCH IF NOT BALANCED 
9 ; 17 5 40$: BRW 3 § + EX 
4 31 1A é 50$:  BRW 0$ $ EXIT - MARK IN BALANCE 
1p i 8 : THE LEFT SUBTREE HAS GROWN HIGHER - RESTORE BALANCE 
08 a9 87 1 760 110$:  DECW  NODESW_BAL(R9) ; PERFORM LEFT SHIFT OF TREE 
r8 76 BEQL =s«SS : EXIT IF IN PERFECT BALANCE 
F108 AD OE 166 BLBS  NODE$W_BAL(R9) ,40$ : EXIT IF AVL BLANACED 
51 69 +O , 7 MOVL NODESL“LEFT(R9S RI : Rl = POINTER TO LEFT SUBTREE 
08 Al = B 764 TSTW  NODESW~BAL(R1) : TEST BALANCE ON THAT SIDE 


u“ 
Z 


2 


—_ a? - Sym 
vou INSERT, RECURSIVE ROUTING TO INSERT INTO 'SeSEPctoRe HSidargs FeDAVeRcTEEAGol SARs. Page 4; V04' 


1 «(18 C 5 BGEQ 1208 ; BRANCH IF NEED DOUBLE ROTATION 
6g ; PERFORM NGLE bt ROTATION 
9 O6A1 D WOVL NODE GHT(R1) ,NODESL_LEFT (RO) 
82 Al 5) D § MOVL DESL RIGHT (RI) 
08 AD = BS CLRW NOSE W_BAC(R9) ; MARK N BALANCE 
5951 : ; MOVL n R + SET NEW ROOT OF SUBTREE 
ooa § : BRY en 308 aa enemreen : INDICATE” f° PERFECT BALANCE 
52 Al D : 1208: Mov NODE L_RIGHT(AT) R2 RIGHT SON OF LEFT SUBTREE 
OR HRD Be Rae BRUT ie apien niet 
ek es Ht ga 
a8 ay Bi ; 28 CLR NOSESW_BAC(RS) ; INITIALIZE BALANCE INDICATORS 
A2 83 0 ist i ea ; CHECK BALANCE OF NEW SUBTREE 
Os 14 5 g ‘ BETR #3 $ ; BRANCH IF LEFT SIDE HEAVY 
08 A9 1 99 5F MOVW #1 ,NODESW_BAL (R9) : MARK RIGHT SIDE HEAVY 
66 63 784 BR 246 + SET NEW SUBTREE AND EX! 
ata A | aaa Sa i og 
787 ; ’ 
é8 g 8 ; INSERT NEW NODE INTO RIGHT SUBTREE 
: HL RO ; SAVE POINTER OF FATHER 
59 06 9 BO 8 Fy 2008: PUSHL NODESL_RIGHT(R9) ,RO : SETUP POINTER TO RIGHT SON 
fre 8 a 79 BSBW =sINSERT™ : INSERT INTO LEFT SUBTREE 
Ce re | amet Mater tet 
mmm DB fe RBA Elaemetnroram 1 TEA Herne 
st 797; ; , 
198 ; THE RIGHT SUBTREE HAS GROWN HIGHER - RESTORE BALANCE 
’ 9) ; PERFORM RIGHT SHIFT OF TREE 
00 ee Se Tee nnn nos gos. 7 PLIT TF IM PERGEKE, BALANCE 
st BE AS BD O3RK aS RE MODERL-RLGHT(ROy nr | > POINTER Ta RiGHT sueTREE 
. OF ts 3 04 oLEa 2208 a nie : BRANCH IF NEED DOUBLE ROTATION 
04 A9 61 9 3 ; VL NODE LELEFT (RI) ,NODESL_RIGHT(R9) 
ary a9 BA OOSOA 09 cL NODES . ACTRS) i MARK IN BALANCE ee 
" 3 i Hi if RB 468 eS eoeaiend : INDICATE IN PERFECT BALANCE 
ea oa A i 2208: MOV” NODESE LEFT ERI) R2 R2 = LEFT SON OF RIGHT SUBTREE 
i BSS Fe Raat REESE teht ci 
Beg EE Hy BE RSE ben sora 
f a9 Bt Bs 18 cLRY NOOESN. BAC(RO) ; INITIALIZE BALANCE INDICATORS 
A TSTw © NODESW7BAL(R2) ; CHECK BALANCE OF NEW SUBTREE 
be 8 D $4 BEQL ait : SKIP IF IN BALANCE 


nS 
ERT, RECURSIVE ROUTINE TO INSERT INTO 'SegEpcioee SH:der$$ Yepav Cache ongol S mags 1 Page #3) v4 


RS i 
08 Al 80 
1 
1 AE 


BF ; BGTR 2308 ; BRANCH IF LEFT SIDE HEAVY 
c MOVW #1, NODESW_BAL(R1) ; MARK RI HT $10 HEA vY 
4 BRB 246$ $ SET NEW SUBTREE AND EX! 
08 a9 c? 5 230$: MNEGW #1,NODESW_BAL(R9) ; MARK LEFT SIDE HEAVY 
cB : ; SET NEW POINTER TO SUBTREE 
59 52 00 cB : 2460$: MOVL R2,R9 : SET NEW SUBTREE 
¢ : MARK SUBTREE IN PERFECT BALANCE 
08 AD «BA ¢ 2508 CLRW NODESW_BAL(R9) ; MARK IN PERFECT BALANCE 
Dt @ : RETURN RO FALSE TO INDICATE NEITHER SIDE IS HEAVY 
50 4 D4 5 bos: CLRL = RO ; MARK IN BALANCE 
05 03D 8 90$:  RSB 
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D4 
D4 
D4 
D4 
D4 
D4 
D4 
D4 
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DYNAMIC MEMORY 


SrSEp-1986 O5:84:83 


AX/VMS Macro 


v04-00 
SDA.SRCJSYMB 


Pa 4 SYM 
MBOLS.MAR; 1 ned d 


«SBTTL ALLOCATE, ALLOCATE DYNAMIC MEMORY 


THIS ont ME et DYNAMIC 
REGION CES OBTAIN TH 
MEMORY 


CATES 
RY fo 
INPUTS: 

4(AP) = SIZE OF BLOCK TO ALLOCATE 


OUTPUTS: 


RO = STATUS 
R1 = ADDRESS OF ALLOCATED BLOCK 


ANY ERRORS ARE SIGNALLED IMMEDIATELY. 


MORY BY 
REQUESTED AMOUNT OF 


-ENTRY ALLOCATE,O 

PUSHAL (SP) ; RE 

PUSHAL 4(AP) 3 LE 

CALLS #2,G*LIBSGET_VM : ALL 
SIGNAL : SI 

MOVL (SP)+,R1 3 RE 

RET ; RE 


XPANDING THE 


ES ADDRESS OF MEMORY 
TO ALLOCATE 
TE MEMORY 
IF NO STORAGE 
ADDRESS TO CALLER 
WITH STATUS 


B 6 
YMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro V04-00 
TE, DEALLOCATE DYNAMIC MEMORY $23 Pa19b4 84340548 SDA. SRCJSYMBOLS .MAR; 1 


~SBTTL DEALLOCATE, DEALLOCATE DYNAMIC MEMORY 


DEALLOCATE DYNAMIC MEMORY 


SN NIOO 


INPUTS: 
3 4(AP) = STARTING ADDRESS TO DEALLOCATE 
§ 8(AP) = LENGTH TO DEALLOCATE 
8 OUTPUTS: 
RO = STATUS 


ANY ERROR IS SIGNALLED IMMEDIATELY. 


-ENTRY DEALLOCATE,0O 


—OOONOUS Ww 


4 AC OF PUSHAL 4(AP) ; STARTING ADDRESS 
8 AC OF H PUSHAL 8(AP) ; LENGTH 
00000000'GF 02 FB CALLS #2,G*LIBSFREE_VM ; DEALLOCATE STORAGE 
06 , ai NAL ; SIGNAL ANY ERRORS 


sone 


SYME 
v04- 
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SYMB SYSTEM SYMBOL TABLE ROUTINES 1 =SEB-1984 01:47:14 AX/VMS Macro V04-00 Page 26 
v04- READ_SYMBOLS == READ STB SYMBOLS INTO SY 5=SEP-1984 03:34: SDA. SRCJSYMBOLS.MAR; 1 (16) 
4 : 93 .SBTTL READ SYMBOLS == READ STB SYMBOLS INTO SYMBOL TABLE 
BS 
4 36 ; READ_SYMBOLS 
40E 98 ; THIS ROUTINE READS ALL THE SYSTEM SYMBOLS INTO DYNAMIC 
40E 899: STORAGE AND CREATES A LIST IN ASCENDING ORDER 
40E 0; SYMBOL VALUE. THIS MAKES IT POSSIBLE TO TRANSFORM 
40E 901: A GIVEN VALUE INTO A SYMBOL NAME AND AN OFFSET 
40E 9 ‘ ; SCANNING THE SYMBOL TABLE UNTIL THE CORRECT AREA 
rt ; ‘ z 3 IS DETERMINED. 
4 E 3 5: INPUTS: 
epi wm 
SBE $09 : OUTPUTS: 
40E 911: SYMFL = LIST HEADER FOR SORTED VALUE LIST 
tbe 31¢ 3 ALPFL = LIST HEADER FOR SORTED ALPHABETIC LIST 
| 
OFFC 040E 916 SENTRY READ SYMBOLS 
0419 7 <R2_R3,R4_RS.R6,R7-RB.RI-RIO.R11> 
FD23 CF 4600~—=OFB 0419 919 CALLS #0,REWIND_STB ; REWIND THE STB FILE 
00000014"EF 04 0415 920 CLRL  NSYMBOLS t ZERO NUMBER OF SYMBOLS 
OOOOOOOC'EF 04 0418 921 CLRL 3 SYMFL : INITIALIZE TREE ROOTS 
00000010'EF D4 04 } 3 é ; CLRL = ALPFL 
04 , ? , ; READ GLOBAL SYMBOLS FROM SYS.STB INTO SYMBOL TABLE 
427 926 108: 
FD15 CF 90 FB " eo « 5 CALLS #0,GET_SYMBOL ; GET NEXT SYMBOL ENTRY 
1050 €9 042C 928 BLBC s + BRANCH IF END OF FILE 
53 09 Al SE O42F 929 MOVAB OBJS$T_SYM_NAME(R1),R3  ; GET ADDRESS OF ASCIC SYMBOL NAME 
52. 83 9A 0433 930 MOVZBL (R3)+7 : GET LENGTH AND ADDRESS 
54° 05 Al v0 436 931 MOVL OBJSL SYN, VALUE (R1), R4 : GET VALUE OF SYMBOL 
FE3B 463A 9 é BSBW ADD _NEW_E > ADD NEW SYMBOL (ASSUME NOT IN TABLE) 
—8 11 4 ; 3 pe BRB + CONTINUE UNTIL ALL SYMBOLS READ 
43F 935 —s- SCLOSE = STBF ; CLOSE SYSTEM SYMBOLS FILE 
44¢ ; ; : SAVE SPECIFIC SYMBOL VALUES IN REQUIRED SYMBOLS TABLE 
90009000 O'EF 9E 044€ 939° MOVAB REQ_SYMBOLS,R6 ; INITIALIZE TABLE POINTER 
C6 9 438 940 MOVAB REQ™SYMBOLS.LEN(R6).R7 ; ENDING ADDRESS OF TABL 
he F 43 941 30$:  PUSHAB 3 (RB) t CONSTRUCT STRING DESCRIPTORR 
7E 04 A6 9A 0458 946 MOVZBL 4(R6),-(SP) 
3 DD 045F 94 PUSHL SP ; ADDRESS OF DESCRIPTOR 
000007BA' EF 0 FB 0461 944 CALLS #3,SYMBOL_VALUE + LOOKUP SYMBOL 
66” 39 f rhe: 3 at Rv. 408, : SO ANET VALUE OF SYMBOL 
18 (1 if $47 a BRB 50$ : GO ON TO NEXT SYMBOL 
15 66 €8 047 348 " BLBS_~—s (R6) , 508 ; IGNORE IF OPTIONAL SYMBOL 


dD 6 


SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro V04-00 
READ_SYMBOLS == READ STB SYMBOLS INTO SY ioe ty P Ohi ari ge SDA. SRCJSYMBOLS.MAR; 1 
04 A6 OF 4? PUSHAB 4(R6) ; ADDRESS OF COUNTED STRING 
4 ae SIGNAL 1,NOREQ + SIGNAL SYMBOL NOT FOUND 
50 O4A A 04 "  MOVZBL 4(R6),R : LENGTH OF SYMBO 
56 05 A6n8 se 4 ( MOVAB (Rep ERDI RG ; INCREMENT POINTER 
36 D1 04 CMPL = R6 RR + CHECK IF END OF TABLE 
C2. sOoF 494 BLSsu 308 : CONTINUE IF MORE TO DO 
636 ; DEFINE SDA PERMANENT SYMBOLS (RO, ETC.) 
52 FBO6 CF 9€ 496 on MOVAB REG_TABLE,R2 ; ADDRESS OF REGISTER TABLE 
53 82 7D 0498 “ mOVa ss (R22) +, RB : GET SYMBOL ADDRESS, VALUE 
te Be a ae : Bunerar fag TaLe 
7E 63 D 046A MOVO.  (R3),=(SP) ; DESCRIPTOR OF SYMBOL 
FD6B CF 03 FB O4A CALLS #3,A0D_SYMBOL : ADD TO SYMBOL TABLE 
EF 11 O4AA BRB 70$ > CONTINUE UNTIL DONE 


4AC 
; DEFINE SPECIAL SYMBOL ‘'RMS'' TO BE BASE ADDRESS OF RMS 


bos: REQMEM @MMGSGL_RMSBASE,-(SP)  ; GET BASE OF RMS CODE 
MOVQ RMS ,~(SP) 


Ww alealvaleal eal eal ah al val ah al ah ab ab db abe dba 
OOO OO OO O00 000000 09 09 09 09 09 09 SII NINN NSS RPP APA AA AAA MITT 


Co NIA ANE AN OS OO NA UE WIN © OD NAME WIN 9 OD NA E WR OOD NAUE Win" 


DEFINE SPECIAL SYMBOL ‘'SYSLOA’’ TO BE BASE ADDRESS OF 
SYSLOA CODE. 


REQMEM @MMGSGL_SYSLOA_BASE ,~-(SP) ; GET BASE OF SYSLOA CODE 
MOVQ SYSLOA,=(SP) ; DESCRIPTOR OF SYSLOA SYMBOL 
CALLS #3,ADD_SYMBOL ; ADD TO SYMBOL TABLE 


DEFINE SPECIAL SYMBOL ‘'SCSLOA’’ TO BE BASE ADDRESS OF 
SCSLOA CODE. 


REQMEM @SCSS$GA_EXISTS,-(SP) ; GET BASE OF SCSLOA CODE 


Se 


DOOOOOCOCOOOOOOOOOOOOOOOOOOOOOOOOODOOOVOODOVOOOOODOODODOOOVOOVOOOOOOO 


AC 
Ni 
7E 0000067C'EF 7D 4B : : DESCRIPTOR OF RMS SYMBOL 
FD4D CF 03) 4c CALLS #3,ADD_SYMBOL + ADD TO SYMBOL TABLE 
ats : DEFINE SPECIAL SYMBOL ‘MP'' TO BE BASE ADDRESS OF MULTI PROCESSOR 
ats : : 
4C REQMEM @EXESGL_MP,-(SP) ; GET BASE OF MP CODE 
7E 00000693'EF 7D 0408 MOVa. MP, -(SP : DESCRIPTOR OF MP SYMBOL 
FD31 CF. O03 «FB Apr CALLS #3.ADD_SYMBOL : ADD TO SYMBOL TABLE 
4E4 ; DEFINE SPECIAL SYMBOL "MSCP'' TO BE BASE ADDRESS OF MSCP SERVER 
4e4 : CODE. 
4E4 ' REQMEM a@SCSSGL_MSCP,-(SP) ; GET BASE OF MSCP CODE 
7E OOOQ006AE'EF 7D O4F4 mova NSCP,=(SP) : DESCRIPTOR OF MSCP SYMBOL 
FD15 CF O3)—FB se CALLS #3,ADD_SYMBOL : ADD TO SYMBOL TABLE 
0 : DEFINE SPECIAL SYMBOL "‘CLUSTRLOA’’ TO BE BASE ADDRESS OF 
i CLUSTRLOA CODE. 
0 . REQMEM @CLUSGL_LOA_ADDR,-(SP) ; GET BASE OF CLUSTRLOA CODE 
7E 00900690 "FF 7D 19 mova CLUSTRLDA. -{SP) : DESCRIPTOR OF CLUSTRLOA SYMBOL 
FCFO CF O03)SOFB 7 CALLS #3,ADD_SYMBOL : ADD TO SYMBOL TABLE 
iC 
1C 
1¢ 
1¢ 
1¢ 
1¢ 
1C 
1C 
1¢ 
1¢ 
1C 
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| SYM 
v04: 
SCSLOA,-(SP) ; DESCRIPTOR OF SCSLOA SYMBOL | 


< 
® 
oO 
a 


YS 
EA 
7E _Q00006E5' 4 7D MOVa 

FCDD CF FB CALLS) #5,ADD_SYMBOL ; ADD TO SYMBOL T 
DEFINE SPECIAL SYMBOL ‘'VAXEMUL"’ TO BE BASE ADDRESS OF 
VAX EMULATOR CODE. 


REQMEM pe br = VANE BASE, ~(SP) 
MOVQ (SP) 


GET BASE OF VAXEMUL CODE 
DESCRIPTOR OF VAXEMUL SYMB 
CALLS a ADDS  eymBOL + ADD TO SYMBOL TABLE 


DEFINE SPECIAL SYMBOL ‘’FPEMUL"’ TO BE BASE ADDRESS OF 
FLOATING POINT EMULATOR CODE. 


8 0 
S $ 
1007 
1 
1 
1 
101 
101 
101 
538 (1014 
5 13 
838 1013 
a Ris 
538 1020 REQMEM aNNGSGL =f PEMUL _BASE, (SP) GET BASE OF FPEMUL CODE 
5 1021 MOVQ  FPEMUL,=(SP DESCRIPTOR OF FPEMUL SYMBOL 
3 : CALLS #3, ADD. SYRBOL ADD TO SYMBOL TABLE 
5 1024 ; 
$2 1025 : ADD SPECIAL SYMBOLS MARKING THE STARTING ADDRESS OF EACH DRIVER. 
09 10 $ ; EACH SYMBOL WILL MARK THE START OF THE DRIVER PROLOGUE TABLE (DPT). 
56 38 C2 5 is 8 50s SUBL § #DPTSC_LENGTH, SP ; ALLOCATE BUFFER TO READ DPT'S 
57 5€ 00 0538 1029 MOVL "ie : AND SAVE ADDRESS OF IT 
53 19 0 TRYMEM @IOCS$GL_DPTLIST,DPTSL -ruinktne} ; SET ADDRESS OF FIRST DPT 
2c 50 «Ed O54 1031 BLBC ; BRANCH IF ERROR 
58 67 DO 0551 10 : 95$ MOVL DPTSL_FLINK(R7),R + SKIP TO NEXT DPT 
00000142"EF 58 01 0554 19 CMPL RB, 1OCSGL NOPTLIgte : CHECK IF BACK TO LISTHEAD 
20 13 0558 1034 BEQL + BRANCH IF END OF LIST 
0590 1035 TRYMEM (RB), (R7),#DPTSC_LENGTH ; READ THE ENTIRE DPT 
10 50 €9 056A 1036 BLBC — RO, 1008 + BRANCH IF ERROR 
58 0D 0560 1 SHL + PUSH REAL ADDRESS OF ACTUAL DPT 
21 A? soO9F 36F 1038 PUSHAB DPTS$T_NAME+1(R7) + PUSH DESCRIPTOR OF DRIVER NAME 
7E 20 A? 9A 0572 103 MOVZBL DPT$T SNARE CR?) (SP) 
FCOA CF «=6—(O3té'@W Bare 1040 CALLS #3,ADB6_S ; ADD TO SYMBOL TABLE 
dB 1 0578 41 BRB 95$ 
270 ‘8 > ADD SPECIAL SYMBOLS FOR CPU-SPECIFIC LOADABLE CODE 
50 00000122'EF D0 570 45 100$: MOVL EXESMCHK,RO ; GET ADDRESS, OF | EXESMCHK VECTOR 
0364 194? REQMEM 2(RO),-(SP) : GET ACTUAL ADDRESS OF MCAK CODE 
7E 00000687'EF 7D 05 Be 48 MOVQ. MCHK,-(SP) : PUSH DESCRIPTOR OF MCHK SYMBOL 
FC78 CF «6003S 398 1049 CALLS #3,A0D_SYMBOL : ADD TO SYMBOL TABLE 
aa 
5a4 1052 


STATUS SUCCESS 
RET 


F 6 
1 


PRINT_SYMBOLS: : 
.WORD  “M<R2,R3,R4,R6,R7,R8,R9,R10,R11> 


SUBHD sirgeets sorted by name> 
SKIP E 


SYMB SYSTEM SYMBOL TABLE ROUTINES -SEP-1984 01:47: AX/VMS Macro v04-00 Page 29 
v04- BRIN YMBOLS == PRINT ALL SYSTEM SYMBOL iets 7 ee YODA SRCISYMBOLS MAR: 1 ° a) 
A .SBTTL PRINT_SYMBOLS == PRINT ALL SYSTEM SYMBOLS 
A : 
A : PRINT_SYMBOLS 
A : THIS ROUTINE PRINTS ALL THE SYSTEM SYMBOLS IN ASCENDING 
A ; VALUE ORDER AND THEIR ASSOCIATED VALUE. IF A GENERIC 
A ; NAME IS SUPPLIED, THEN PRINT ONLY THOSE SYMBOLS STARTING 
A ; WITH THE GIVEN STRING. 
A : INPUTS: 
A : AP = ADDRESS OF DESCRIPTOR OF GENERIC NAME, IF ANY. 
A ; ALPFL = LIST HEADER FOR SORTED ALPHABETIC LIST 
A : SYMFL = LIST HEADER FOR SORTED VALUE LIST 
: : OUTPUTS: 
A : NONE 
A 3 
00000024 055 PRTBUFLEN = 36 ; CHARACTERS PER LINE SEGMENT 
0000002C 055 PRTBUF SIZ = B+PRTIBUFLEN ; BYTES PER SEGMENT BUFFER 
000000 : AS ROWS = 54 + ROWS PER COLUMN 
0000000 AS COLUMNS = + COLUMNS PER PAGE 
00001808 A? STORAGE_SIZE § = ROWS*COLUMNS*PRTBUFSIZ ; # BYTES FOR ONE PAGE 
Ad 
A? 
A? 
B4 PA 
59  00000010'EF 00 8B MOVL  ALPFL,R9 : ROOT OF VALUE TREE 
16 1 BSBB = PRINT_LIST : PRINT ENTIRE LIST 
SUBHD stygeets sorted by value> 
SKIP PAGE 
59 Q00C000C'EF 00 MOVL SYMFL,R9 : ROOT OF ALPHABETIC TREE 
01 10 BSBB PRINT_LIST + PRINT ENTIRE LIST 


PRINT ENTIRE SYMBOL LIST 


AP = ADDRESS OF DESCRIPTOR OF GENERIC NAME 
Ré = ADDRESS OF LIST 
R35 = LONGWORD INDEX TO LINK WITHIN SYMBOL RECORD 


PRINT_LIST: 
PUSHL 


tt tt 4 MAQOOOOOCOCOCOOCOOCOOCOOGOOCOOGOOCOCOOCOOCOCOCCOCOCOCOCCOOOOOCOOOOOOOCOCOOoOO UT 


—[—DOOODOOOOOOOWOO OOOO OO O60 60 0909 09 09 09 09 09 SINISE NN NO PAA AA AAA III 


DOD NAME WR SO OD NA NE WIN O OD NAME WN 3 SO OD NA NE WIN  O OD NAME WP OOONOAUNE 


WW MMMM MMMeaMMmMmMmmMmMmn OOOO 


DWNT COPIPIPIPIPSPIPIPININYPY — TCO — & 


00001808 8F DD #STORAGE SIZE ; LENGTH OF BUFFER STORAGE 
FDE? CF 1 fe CALLS #1,ALLOCATE ; ALLOCATE BUFFER STORAGE 

7 1 MOVL R1,R ; SAVE ADDRESS OF BUFFER MATRIX 
50 gpAe F C MOVZ2WL #ROWS*COLUMNS ,RO ; REPEAT COUNT 

4 7 ~=©00 MOVL R7,R4 ; ADDRESS OF BUFFER MATRIX 


Oe ee ee eer ah sb Ab db db Ab Ab db db hh db dd ab Ab hh bh ah ah had a hh ed et hd a ed ea ed ed a) eae a ee eal ee og) 
kt ak kt tn a kt tk kk ak tt tk tt tn ht ns ss ss es ss ss Ss ss Ss Ss ss ss Ss ss sO 


wu 
cad 
ee 
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SYMB SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro V04-00 Page Ym 
v04= PRINT SYMBOLS -- BRINT ALL SYSTEM SYMBOL g-8e - 382 Bhar: de PDA SRCISYMOOLS MAR: 1 ° 3, v04 
rope Oo 24 p cre 11 mov sPRTBUFLEN (R4) ; INITIALIZE DESCRIPTOR 
54 CO 06 6 111 ADDL? #PRIBUFSIZ,R4 
F3 F5 0603 1114 SOBGTR RO ; INIT. ALL DESCRIPTORS 
O00006C7"EF 9F 6 1115 PUSHAB TRAVERSE t INIT CO-ROUTINE ADDRESS 
18 tos 
54 57 po ¢ 1118 MOVL  R7,R4 ; ADDRESS OF BUFFER MATRIX 
56 O0A2 BF C 60F 1119 _ MOVZWL #ROWS*COLUMNS,R6 + LOOP COUNT 
9 Ig oi 1101 JSB a(sP)+ ; GET THE NEXT ENTRY 
65 50 (C€ 61 11 : BLBC ~=—_-« RO, 908 + BRANCH IF DONE 
52 AAD BO 0619 11 MOVL NODESL_PTR(R9),R2 : ADDRESS OF SYMBOL TABLE ENTRY 
C0000000 BF 62 D1 061D 1124 CMPL SYMBL VALUE (ReS ,#*xC0000600 ; CHECK IF INTERNAL SYMBOL 
| 624 1125 BGEQU 208 ; SKIP SYMBOL IF SO 
6c BS O06 5 11 6 TSTw (AP) + ANY GENERIC NAME? 
10 13 0628 11 BEQL 25% + BRANCH IF NOT 
3¢ 62A 11 2 PUSHR #*M<R2.R3.R4,R5> + SAVE REGISTERS FOR C 
05 a2 04 8C 6 6 ¢ 11 CMPC —s- (AP) , 4 (AP) ,SYMST_SYMBOL41(R2) ; GENERIC MATCH? 
4 13 0632 1130 BEQL 22% ; BRANCH IF MATCH 
C BA 06346 1131 POPR #*M<R2,R3,R4,R5> + RESTORE REGISTERS 
pC 11 06 : 11 : BRB 208 : KEEP LOOKING FOR MATCH 
€ BA 0638 11 228: POPR #°M<R2,R3,R4,R5> : RESTORE REGISTERS 
63A 1134 258:  TRYMEM @SYMSL.VALUE(R2) + ATTEMPT TO READ CONTENTS 
18 50 £9 0644 1135 BLBC = RO, 308 : IF LOCATION CANNOT BE READ 
51 DD 0647 11 é PUSHL + CONTENTS OF LOCATIO 
62 DD 0649 11 PUSHL SYM$L_VALUE(R2) + SYMBOL VALUE 
04 A2 OF 0648 1138 PUSHAB SYM$T~SYMBOL (R2) : SYMBOL 
36 pp $3 1139 PUSHL Ra : BUFFER DESCRIPTOR 
FAAS CF 9F 0652 1141 PUSHAB PRTCTL2 
00000000'GF 06 FB 0656 1148 CALLS #6 G*SYSSFAO ; FORMAT STRING 
ON OP HG? gg, 8 
62 DD 065F 1145 PUSHL SYMSL_VALUE(R2) ; SYMBOL VALUE 
04 Ao OF 0661 1146 PUSHAB SYM$T~SYMBOL (R2) : SYMBOL NAME 
34 pp 664 114 PUSHL R4 : BUFFER DESCRIPTOR 
FA7C cr F $8 1109 PUSHAB PRTCTL1 : CONTROL STRING 
00000000'GF 065 FB si 1130 ct CALLS #5,G*SYS$FAO : FORMAT STRING 
54 2¢ CO 067 1188 ADDL2 #PRIBUFSIZ,R4 ; NEXT OUTPUT DESCRIPTOR 
98 56 O#F 676 11 SOBGTR R6,20$ : CONTINUE UNTIL PAGE FULL 
18 10 679 1154 BSBB PRINT PAGE : PRINT ENTIRE PAGE 
FFE £8 1 5 “a BRW 10 : CONTINUE UNTIL DONE 
4 D4 067 1189 CLRL. —- (R4) ; ZERO DESCRIPTOR LENGTH 
s C9 1138 ADDL2 #PRTBUFSIZ,R4 
F856 CO#F 11 SOBGTR ; ZERO REMAINING DESCRIPTORS 
, a é 1160 SBB Ss PRINT_PAGE > PRINT L £ 
00001BD8 8F oD 1161 PUSHL #STORAGE_SIZE : LENGTH TO DEALLOCAT 
7 OD 11 é PUSHL t ADDRESS OF BUFFER STORAGE 
FDSD CF 02 FB 90 116 CALLS #2,DEALLOCATE : RELEASE STORAGE SPACE 
0 95 1164 RSB 
38 1186 
96 116? : PRINT ENTIRE PAGE OF DESCRIPTORS 
| 


voee008 PRINT SYMBOL TABLE ROUTINES sey cyngor "BSE =13Rs 03:34:58 EEDA SacTSimborS mans? Page of}, 


1 
1 
Hit -ENABL LSB 
1 PRINT_PAGE: 
56 36 D MOVL #ROWS Rb : LINES TO PRINT 
4 D ? 1 ion MOVL  R7,R : R4 => 1ST SEGMENT IN EACH ROW 
50 9948 c 64 Al 069 1 : ADDW3 (R4) ,ROWS*PRTBUFS $12(R4) .RO ADD FIRST 2 LENGTHS 
290 (4 «OA A 17 Dw *ROWS *PRIBUFSIZ(R4) ,RO ; abb IN THIRD LENGTH 
7 A? 11 8 BEQL $ + SKIP NULL LINES 
1290 (4 «7F 6A9 117 PUSHAQ <2*ROWS*PRIBUFSIZ>(R4) 
0948 (4 7F O6AD 11 0 PUSHAQ <1*ROWS*PRTBUFSI2>(R4) 
64 7F 06B1 11 PUSHAQ {R4) 
683 11 j PRINT <!AS'Be tas 18s 'AS> =; PRINT LINE 
54 2¢ C CO (1183 208 ADDL2 #PRTBUFSI 2,R4 : SKIP TO NEXT ROW 
D6 56 SCO*#F 6¢ 1184 SOBGTR t LOOP UNTIL DONE 
0 6¢ 1 . RSB 
6(7 11 $ .DSABL LSB 
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58 dO 
59 
18 «#1 
59 669) sO 
(ae 
59 BED 
50 01 OD 
68 18 
5E 4 ¢ 
9 dD 

04 A9 OD 
4 1 

9 8ED 
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5 
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out inie TO TRAVERSE A TREE §-8 oats Bh: 32: 48 SDA. SRCISYMBOLS.MAR; 1 - if) 
.SBTTL TRAVERSE, COROUTINE TO TRAVERSE A TREE 
: TRAVERSE 
34 ; THIS COROUTINE RETURNS THE NEXT ENTRY IN A TREE BY 
95 : TRAVERSING THE TREE IN PREORDER FASHION. THE COROUTINE 
36 TERMINATES AND RETURNS WITH ALSE IF NO MORE ENTRIES 
38 : INPUTS: 
, ; R9 = ADDRESS OF CURRENT NODE 
§ : OUTPUTS: 
5: R9 = ADDRESS OF NEXT NODE IN SEQUENCE 
: RO = TRUE IF MORE TO GO, FALSE IF DONE 
; R11 IS DESTROYED. 
13 : 
1 TRAVERSE : 
1 MOVL  (SP),R11 ; SAVE RETURN ADDRESS 
14 10$ PUSHL 9 : SAVE FATHER 
15 BEQL 90% t EXIT IF NULL NODE 
1 MOVL NODESL_LEFT(R9) RO ; POINT TO LEFT SUBTREE 
1 BSBBSsé«dCS : TRAVERSE THE LEFT HALF 
18 POPL R : RESTORE FATHER 
1 MOVL #1,RO t TELL USER MORE TO COME 
0 J$B (R11) ; CALL THE USER WITH NODE 
1 ADDL = #4, SP : THROW THE RETURN ADDRESS AWAY 
: PUSHL R9 > SAVE FATHER 
MOVL  NODESL_RIGHT(R9) RO t POINT TO RIGHT SUBTREE 
4 BSBBStié«d;@OS : TRAVERSE THE RIGHT HALF 
§ 90$: POPL R : RESTORE FATHER 
6 CLRL R : INDICATE NO MORE 


ALP_TRAVERSE: 
MOVL 


ooofom 


Ww 
oS 
we 


NA UE ANS OO NAN EWN O OOD NAN EW OO OD NAUNEW  O ODNO UNS 


ee me a a et 8 ss a ts a a a ts — - —s t 
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ROUTINES 16-SEP-1984 01:47: AX/VMS Macro v04-00 
ALPHA TREE ON P g- ett 1 Pe eet: SDA.SRCISYMBOLS.MAR;1 
-SBTTL ALP_TRAVERSE == TRAVERSE ALPHA TREE ON PREFIX MATCH 


ALP_TRAVERSE 


This is a coreyt ine. Like TRAVERSE, which scans the tree in 
postorder, making a cocall on each node until the end of the 
tree is reached. It takes as an argument a prefix string 
and only returns those nodes which match the prefix string. 


INPUTS: 
Rg Length of prefix strin 
gg 


Address of each pretiz string 
Listhead node 


OUTPUTS: 
ag Address of current node 
R10 syene} block address for this node 
RO TRUE iff RO contains a valid node address and scan hasn't ended 
R11 is destroyed 
(SP),R11 ; Save return address 

TSTL Ho ; Reached terminal node? 
BEQL 40$ ; Return if so 
MOVL NOOE Si, PTR(RI) R10 ; Get symbol block 

CMPC3 RO, (R7T,SYMST_SYMBOL+1(R10) ; Compare prefix string 
BEQL § ; J if exact match, must return node 
BLSSU $ : J if less 
MOVL NODESL_RIGHT(R9) .RO ; Greater - go right 
BRB 10$ ; and loop 
MOVL NODESL_LEFT(R9) ,RO ; Less - go left 
BRB 10$ 3; and loop 
PUSHL R9 3; Equal - save this node 
4 OQDESL LEFT (RD) RP ; Scan left subtree 
POPL R : retrieve current node 
MOVL BOER. PTACRD) AIG ; Get symbol block 
MOVL #1,R ; Show node present 
JSB (r11) : Cocall our caller 
MOVL (SP)+,R11 ; Replace return address 
PUSHL R ; Save RO again 

oy 1 eae se 3; Now scan right subtree 
POPL R : Recover node address 

CLRL RO ; Show no more to scan 
RSB ; And get out 


K 6 
Vou=000 SYRBOLIZE == CONVERT VALUE 10 SYMBOL AND 'S-SEP-19be O5:34:45 [SparsacTSvABoLscman:1 8° (36) vee 


: ~SBTTL SYMBOLIZE -- CONVERT VALUE TO SYMBOL AND OFFSET 


— 


f 
F 12086; 
f f ; SYMBOL IZE 
7oF 1 ; THIS ROUTINE ACCEPTS A VALUE AND RETURNS A STRING WHICH 
f . ! 30 CONTAINS A SYMBOL AND OFFSET CORRESPONDING TO THAT VALUE. 
, f ‘ 3 INPUTS: 
72F 129% : 4(AP) = VALUE TO BE TRANSLATED 
f f 99 ; B(AP) = ADDRESS OF QUADWORD RESULT STRING DESCRIPTOR 
? $7 : OUTPUTS: 
7oF 1 3 : THE STRING IS RETURNED IN THE RESULT BUFFER 
72F 1 90 : R1 = ADDRESS OF DESCRIPTOR OF RESULT STRING 
tse 2 : 
7oF 1 : 
72F 1304 SYMBOLIZE:: 
OA0C , f 5 .WORD “M<R2,R3,R9,R11> 
53 00900004" EF € 0731 1 oF MOVAL TRANSLTH,R3 
63 08 BC 7D ? 8 ' 8 MOVQ a@B(AP),(R3) ; PRESET RESULT DESCRIPTOR 
1504 aC fF €E 73C «1310 BBS #31,4(AP),20$ ; BRANCH IF SYSTEM ADDRESS 
10 04 AC 1€ € 741 1311 BBS #30,4(AP) 208 : BRANCH IF CONTROL REGION 
00000200 8F 04 AC 01 0746 1 19 CMPL = & (AP) , #* X20 ; IS ADDRESS IN FIRST PAGE? 
06 1€ e 13 a BGEQU 208 : IF NOT, ATTEMPT LOOKUP 
51 53 oO 0750 1315  MmOVvL  R3,R1 ; R1 => OUTPUT STRING 
61 4 , 1 cLRL (R1) ; RETURN NULL STRING 
756 (1318; 
756 «(1 15 3 Search value ordered tree to find symbol. The Last symbol which 
7 1320 ; we pass on the way down the tree, whose value is less than the 
7 1321 ; value we are looking for, will be the largest symbol in the 
4 2 ! § 3 tree which is less than the value (honest!). 
52 D4 07 6 1324 20$:  CLRL  R2 : CLEAR "LAST SMALLER VALUE’ POINTER 
59  0000000C'EF p 758 1325 MOVL YMFL,RO : GET TREE HEA ; 
1D 75F 1 $ 30$: BEQL ; J IF REACHED TERMINAL NODE 
50 OA Ad oD f l 1 MOVL $ NODESL_PTR(R9),RO : GET SYMBOL it 
6 AC OD 1 : CMPL 4(AP),SYMSL_VALUE(RO) |; COMPARE AGAINST KEY VALUE 
15 13 0769 1 BEQL $ : J IF EXACT MATCH, LOOK NO MORE 
Q 1F 0768 1 BLSSU 408 : J IS LESS - TAKE LEFT BRANCH 
52 9 D 16 1 MOVL §R Re : KEY IS LARGER - REMEMBER SYMBOL 
59° O04 A : 7 b 1 MOVL HESL_RIGHT(R9) RO : GO RIGHT 
E9 774 «1 BRB $ : AND LOOP 
59 «69 b0 £6 1334 40$: MOVL ¥ DESL_LEFT(R9) .R9 ; KEY IS SMALLER = GO LEFT 
gs 779 «1335 BRB 03 ; AND LOOP 
52 50 00 778 $ 50$: MOVL  RO,R2 : EXACT MATCH = REMEMBER IT 
coe On ee oe Ae : BEST, SYMBOL NOW IN R2 
CE 3 +80 1340 = =§©——- BEQL ies : STRAIGHT OUT IF NOT 


SYABOLIZE == CONVERT VALUE TO SYMBOL AnD 'S-SEP-196¢ OS:44:98 EeparsacleymaoScman:1 — "29® (35, 
cs 0782 ists piney vee CAP) RY; nh Ady"s Mv s 611s 


TF $04 80 dO VALUE RANSLATE 


4 
, d 

Hes ie | 

F 4 PUSHAB SYMS$T_SYMBOL(R2) : $ 
44 1 $ puSuL 5 AP)~ : RESULT STR SOR ING DESCRIPIOR 
; A : 4 STL > CHECK IF ZERO OFFSET 
D ; i BUSHAL FRANSCTL ee 

Fe te : CALLS oC STSEFAO ; FORMAT OUTPUT STRING 
A aap ce 
00 78 ; 80$: MOVL as : R1 => OUTPUT DESCRIPTOR 
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58 04 BC 7D 

57 O0000010'EF D0 
57 

25 3 

56 pa A7 3 

50 (04 a6 A 

05 a6 50 20 69 5 #8 
0 

8 

57 67S s(0 

E4 11 

57 04 A? 00 

DE 11 

500 (01 pe 

51 66 «=O 

04 

50 04 
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SY SYSTEM SYMBOL TAB 
v04 SYMBOL _VALUE - 


YMBOL _VALUE:: 
«WORD 
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VALUE OF =$EP=1986 09:56:55 ESDAYSacTS¥RBOLS-maR: 


VALUE OF SPECIFIED s | 
»SBTTL snes inadl “= GET VALUE OF SPECIFIED SYMBOL 


SYMBOL _ VALUE 

THIS ROUTINE RETURNS THE VALUE OF A GIVEN SYMBOL 
INPUTS: 

4(AP) = ADDRESS OF SYMBOL DESCRIPTOR 
OUTPUTS: 


RO = TRUE IF SYMBOL FOUND 
Ri = VALUE OF SYMBOL IF FOUND 


“M<R2,R3,R4,R5,R6,R7,RB,RI> 


MOVQ a@4(AP),RB : GET DESCRIPTOR 
MOVL  ALPFL,R7 : ROOT OF TREE 
TSTL ; NULL POINTER? 
BEQL 80% ; IF NOT 
MOVL NODESL_PTR(R7) Ro ; ADDRESS OF SYMBOL TABLE ENTRY 
MOVZBL SYMST SYMBOL (RO) .R LENGTH OF SYMBOL 
CMPC (R9),#°A" *LRO, OST _SvMBOL+1.(R6) 
EQL 30 ; BRANCH TF 
BGTRU a + BRANCH IF GREATE 
MOVL $NODESL_LEFT(R7),R7 : GO TO LEFT BRANCH OF TREE 
BRB + CONTINUE DOWN T 
MOVL § NODESL_RIGHT(R7) ,R7 ; 6O TO RIGHT BRANCH 
BRB 20$ : CONTINUE DOWN 
MOVL #1,RO : SYMBOL FOUND 
MOVL SYMSL_VALUE(R6) ,R1 + VALUE OF SYMBOL 
CLRL = RO ; SYMBOL NOT FOUND 
RET 


re, 
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SY SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro V04-00 P 7 YME 
v04 FORMAT s the FORMAT command §-8 oats Qh g7 ihe SDA.SRCISYMBOLS. MAR: 1 ns (35) v04- 
»Sbttl FORMAT, Process the FORMAT command 


This routine processes the FORMAT poanens which 

specifi : an address and the symbol prefix used 

to spec the type of data structure. The symbol 

table will be searched for all symbols containing 

that structure and an ordered offset table is constructed 
with pointers to the actual symbol table entries. 

Only one otfeet tape may be in use at any time. 

A later specification of another structure in a FORMAT 


fe i Di Ds es Ds es | 


command overrides the current specification. 
Inputs: 
AP_= TPARSE block (TPASL_NUMBER contains the address) 


OPTIONS = Non-zero if structure specified, else zero. 
STRUCTURE = Quadword descriptor of structure string. 


SN * 
ee es Re Bs ee De | 


4 
4 
4 
12 
188 
i807 
14 § 
1410 
141 
141 
141 
1414 
1415 
1718 
141 
HR 
ge 1? , -enabl Lsb 
7F3 «(14 ¢ typetab: 
43 54 4C 57 42 51 47 41 7F 14 eascii ‘‘AGQBWLTC'' ; Valid types for FORMAT 
00000008 4d 1 : typelen = .-typetab 
OFFC O7FB 14 § -entry FORMAT,- 
er 1? f “n<r2.r3.74,75,r6,r7,78,7r9,r10,r11> 
OOOOOOOC*EF 1C AC 4 7FD 1429 mov l tpa$l_number(ap),address ; Set current location 
OOOOO000'EF 0D 805 1430 tstl get tone ; Any new structure specified? 
eq : so, check the string 
03 13 O80B 1431 begl 1 If heck th i 
OOAB ‘31 + 1435 brw 10$ 
i 1? : 3 Obtain the structure name from the block type 
50 OA Cac C1 O81 14 $ is: addl3 fogs number (ap) .#1rpSe_ type re 
81 14 petace (r0) ; Get the block type 
03 5 8 1E 1438 Lbs r0,2$ ; Branch if cannot read 
009 1 1 1439 rw 80$ 
8 2 1993 3 Check for subtype 
60 8F 51 91 4 1668 2$: cmpb ri, #dyn$c_subtype : check to see if in subtype region 
4c oF 8 1038 blssu ; less than. not in region 
80 8F 51 91 A 144 cmpb ri, #dyn$c_special 3 max Limit of Subtype region 
46 ='1€E 1238 bgequ ; greater or equal, beyond region 
i a 8 of 34 144 extzv  #8,#8,r1,r2 3 extract subty e 
1 1 A 1208 rev db rir 3 zero~extend the field 
51 60 8F 8 8 144 subb #dyn$c_subtype, ri 3; yields offset into main type table 
51 OO0000000'°EF41 68 € 1450 movw dyn_mainptr rij, rt 3; pick up start of offsets to evatypes 
52 0D 44 1451 decl r ; decrement subtype by 1( offsets start at 0 
51 £8 6 1436 addl2—s rl,r2 3; actual offset in table of offsets 
1 900008 eat 3 49 145 movw dyn_sub erhre) ri 3; pick up offset in name table 
2 00000000'EF4 E 51 1454 movab dyn_tablirij, r ; address of name 
ge 3 59 1455 movzbw (r2y, r ; put length in register 1 
01 A2 51 SF 8F A 5C 1456 locc #95, ri, 1¢r2) 3 check for underscore character 


rocess the FORMAT command SEP-1 SDA.SRCJSYMBOLS.MAR; 1 


SYMBOL TABLE RoUTINEs © ” I§-SEB=1984 01:47:14 YAX/VMS Macro v04=00 Page 38, youn 


pP 
1 beql 4 3 eql, no underscore char 
baa ''4' 3 98 a 50 31 é subt3 i, r0, structure 3 set Length of name 
24°EF 01 Al f movab i(ri), structure+4 3 set address of name 
45 ; brb 108 
f ; No sub type 
51 2, 8 f $$; povges ri,ri : or ss Nite 
e 3; Branc nva 
52 00000000°EF41 88 evebl gyr_naptril.re ; Pick up symbol info 
; £9 9 blss 3; Branch if invalid 
28 8 0 4 C movzwl dyn_ treed erg ; Pick up offset in name table 
0 EFS E 3 movab dyn_tabl([r2J,r ; Address of name 
00000020'EF 4 9A 9 4$: movzbl (r2y+,structure ; Set Length of name 
00000024 EF re) 9 7 mov l rs structure+4 ; Set address of name 
16011 A , brb 10$ 
A 74 5$: signal 0,invblkt 3 Signal invalid block type 
50 01 00 ORE? Jers Bos: —RaaTeS Oy inyblktye ° 2 3 
04 A 4 ret 
or} f ; Check string specified in structure descriptor 
56 epee * yk 7D 10s: mova eyructure.ré ; Get descriptor of string 
09 6 Bi 08 cmpw r6,# ; Check if reasonable Length 
DE 14 bgtr 5$ ; Error if not 


Construct table of symbol table pointers for this structure, 
sorted in ascending value order. 


F868 CF 67 Q3 cmpc3 Cecefix_ton. tr?) .uch_pretis 3; check to see if the structure is a 
68 beql 30$ ; branch if the ucb - format special 
030C sort_offsets ; Construct offset table 
56 ee 25$ movg offset_table.ré 
D 


; Get starting/ending table addresses 
r6,r ble? 
bneq 508 

pushab structure 


Signal 1,nosymbols 
nel Word. 


: table non-empty 
; Address of structure name 
; Signal no symbols found 


00000020'EF 
50. (01 
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ucb_struct,r5 ; move address of local ucb 

etmem atpasl number (ap), (r5) ,#ucbSc_ Length ; attempt to read it 
r 3 arenes f cannot read 

bsbw ycb_sort_offsets 3; special case - ucb structure 


3 rejoin common code 
Format the data structure 
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58 00 00 a(r6),r8 ; Pick up first offset 
1 F bleq 60$ ; Negative/zero oka 
D4 1 clrt r ; If positive, start with zero 
57 6 pI 3 60$: gaol r6,r7 3 End ° gic yet? 
equ ; Bran r) 
59 6 Mi 3 1 4 (r6)+,r9 ; Get address of symbol gotry 
OpQ00000 "EE Be ; 1 clrl Line count ; No page ejects during display 
A 4 Ad E 1 movab sym$€_symbol(r9),r10 ; Address of symbol to display 
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SYMB SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: AX/VMS Macro V04-00 Pa 9 SYME 
yoae008 FORMAT, Process the FORMAT command Breee load Osihegs PARAM eS Mechs vo4n00 oe 33) v04- 
51 00000020'EF 1 1 5 1 addl3 = s- #1, structure,r1 ; Character index to data type 
00 5 aoe §} movb sym tsymbol#1(r9)Cr1J.r4 ; Get data type gherecter” 
9 4 cmpl ; m$l_value(r9) ,r8 3 theck aga net current offset 
0 9 blss $3 i; Process duplicate symbols 
1 i bgtr 200$ ; Process un-named data 
FEAG CF 08 1 A loce rOtybecbelinttsat 3; Index sate tyge table 
case r e= mit=41,- . a e 
<16 grFi06. 1208, 65,1408, 1308, 1208. 13089" 
50 01 B9 90$: novt “ivr 
re 


WOOOOOOOOOOODOOOOOOOOOOOOOO 


WWW WWIWNIWIRonononononononofnong 


1 
: 
i 
9 1 : 
F 1520 
a 
Bi 
? 1525 ; 
, ¥ § 3 Process duplicate symbol with the same offset by 
of ! 3 printing the symbol without any data next to it 
04 a9 «OF 0967 1 5 100$:  pushab sym$t_symbol (r9) ; Address of symbol name 
ane 8 of 1 ? cree Los '24AC> ; Print only symbol name 
tr 
9 1 3 
79 12 : 3 Process un-named data 
79 «1534 ; 
i a 1535 null: eascic ‘' :; Null string 
7A 15 
56 = 04 ge 7A 15 $ 200$: subl #4,°6 ; Back . over skipped symbol 
5A FO AF 3 7d 1538 mova b*null,r10 3; Leave blank for symbol 
5 69 28 f; 385 1323 pupt 8, synbl_value(r9) ,r4 ; Length of unnamed bytes 
r 
987 1541 ; 
0987 1346 3 Process ASCIC text data 
52  O00000000'EF  9€ 387 1544 110$: movab  buffer,r2 : Address of work buffer 
98E 1545 etmem @tpa$l_number(ap)(r8J,(r2),#32 ; Read ASCIC strin 
(3 5 3 99D 1366 Bibe r0 : If cannot read, skip this 
20 é3 1 Q9A0 154 cmpb (ré) #32 ; Check if reasonable length 
2 1A Q9A3 1548 bgtru 115$ ; If not, process as un-named 
O1A 9F O9A5 1549 pushab 1(r2) ; Address of ASCIC string 
_. ¢ 9A O9A8 1550 movzbl (r2),-(sp) 3; Length of string 
04 AD OF O9AB 1551 pushab sym$t_symbol(r9) ; Address of symbol name 
1¢ BC48 «=69F =OO9A 1336 pushab atpast_nunber (ap) [r8) ; Address of data 
9B2 155 print 4,<!XL~  !246AC"'IAF*'D 
50 g 9A OQ9BF 1384 movzbl (r2),r0 ; Get Length of string 
58 CO O9Cc2 1555 addl r0,r8 ; Add str ng Length 
2 6 9c5 1 § incl r ; plus one for Length byte 
FF 44 ’ 115$ brw 60$ 
Bra 1389 : Process longword data 
54 04 v0 cA 61 1208: nov 4 or ; Length to display 
r 
OCF 1 § 3 
ace ! ee : Process word data 
54 02 b0 OCF 1 66 1308: movi 42 r4 ; Length to display 
1 abe 156 brb 201$ 
904 1 98 3 
904 1569 ; Process byte data 


SYMB SYSTEM SYMBOL TABLE ROUTINES 16-SEP-1984 01:47: 
yee obs FORMAT, Process the FORMAT command §7 SEE) 382 Bhi g7i te 
904 1 . 
54 01 00 904 1408: movil = #1, r4 ; 
it ; Process any type of data 
53 58 2 EF 0907 1575 2018: extzy #0.#2.r8.r3 : 
4 ¢ 90 1 : subl3 r3.#4.r ; 
5 D e 157 movl r3,r5 3 
4 ° 9E3 1 4 cmpl r3,r4 : 
9 3e6 157 bleq 205$ : 
op We OO as Tent beehc.- settee Gotelt senbentinttees 1 
mem number (a r 3 
Roe es, are Bios rge308 . : 
mo r3,fr P 
at “ 9FC 1584 2108: movabl ri.-(sp) : 
51 51 F8 4 rg +44 1 5 ao * ri,ri : 
Cc r PY 
ER a if 
r 3 um 
5583 C2 OADA 15 § +4 aa : 
Ree SG Ey in a ren | 
u Py 
1C BC48)—oO9F Aig 1336 Susheb Stopes number (op) Cr8) 3 
Al 159 print 4,<' ML '24AC'#e '#(XB)> 
2 56 (5 GA38 1898 asat rocsp'"” 
3 r,s P 
58S (0 A2B 1396 2208: addi r3.r ; 
FEF2 $1 OAZE 159 brw 60 
50 01 DO OA31 1598 230$: movil  #1,r0 
OE ia Te 
YEE 1601 dsabl sb 


'AX/VMS Macro V04-00 
LSDA.SRCJSYMBOLS.MAR;1 


Length to display 


Extract longword alignment 
Bytes to display 
Save for later 
More than enough? 
Branch if ok 

so, only print that much 
Read remaining bytes 
Branch if cannot read 
Loop count 
Display the byte 
Shift to next byte 
Decrement byte count 
poop until done 

er of bytes valid 
Amount truncated from left 
2 positions/byte 
Address of symbol name 
Address of data 


Bytes still on stack 


Clean up stack 
Skip data printed 


] 
i 


SYMB SYSTEM SYMBOL TABLE ROUTINES S 1 4 AX/VMS v04-0 P 
V04- ucb_sort_offsets, sort offsets for the u "gr3 1384 83: 44; 3 DAV SRC ISYRBOL S MAR; 1 = (34) 


-sbttl ucb_sort offsets, sort offsets for the ucb 


ucb_sort_offsets 


The ucb is an oncen be to formatting a data structure since 

we do not went te © displ ay all its symbols for a 9 ven device. 

The ucb conte ns extensions to the standard ucb for sneny different 
devices. is routine will select those symbols which are part of 
the s fandard u ucb alon es only the extension Seepene ee: c gersess 
to thi s device. A table of these eyatess. sorted rive 

constructed. This table will then used by the F anit ee Tas to 
display the contents of the ucb. 


Inputs: 


r5 = local copy of the ucb 
ré/e7 = Descriptor of structure prefix string 


Outputs: 


offset_table = Pointer to array of addresses into symbol table entries 
sorted in numeric order. 


ucb_s sort_offsets: 
Allocate buffer to hold ordered offset table 


Bete te ce. De Se Se Ge Ge Ge Ge Ge He Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 
t 


52 Q0000018°EF /7E 


Address of quadword 
00000800 8F DD 


Maximum of 256 offsets, 2 tables: 
56 pointers to sym entries 


offset_table,r2 
Dusht | aeesesese 


SF AAWAAAA NAA AAA NNN AI AAA AAI AAA NAAN 


SIRI IID DVDSP SUSVSUSUSUSVS USVI IS VSISISIOSIOSIOSIOSIOIOSIOSIOST OOD 
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a a a a a ee ee ee ee ee ee ee ee ee ee ee 
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A4 ; 256 symbol values, to optimize sorting 
A4 ; (minimizes page faults into symtable) 
F98D CF 01 4; OAS calls #1,allocate ; Allocate the storage 
58 51 DO OA4 mov | ri,r8 3; Save address of table 
¢ 28 DO OA4SA movl r8,(r2) 
04 A 5 DO OA4D mov | r8,4(r2) ; Mark table empty 
08 11 Ad! brb 10$ 
OOOOOOIC’EF 58 DO OA33 5$: movl r8,offset_table+4 ; mark Last valid table entry 
05 ate rsb 3 exit with newly constructed table 
A5B 3 Now translate the device class a routine address This routine 
A5B 1647 ; will decide if the symbol is valid for this device if the symbol 
ASB 1648 ; is part “of the ucb extension region. If the symbol Lies in the 
aoe ¢ 3 standard ucb it will be inserted into the table. 
5 Opgooee sce 9E A re 10s movab devclass_table 3 3 translation table 
AS 9A OA6 65 movzbl ucb$b_devclass(r5),r2 ; translate device class to routine 
OOOOOD04'EF 1 A66 e2 1” translate. address 3 get address corresponding to devcl 
aoe A6dC 16 neq ; translation valid 
3 D A 6 mov l #810 3; zero the address 
0000072B' eF Dd v4 2 15$ mov | r0,device_rout ; move to safe grounds-use later 
A7 82 : Find the highest node in the alpha tree containing the required 
A7 659 ; prefix. s the parent of ali other nodes with the prefix, 


Pe EEE IN, tl : 
c F ? o - . . = 
Ucb.sortuoffsets, sort offsets for the u S-SEPciobe OB:4a:49 ESDAceRcTSIRBOLS men:1 | A" (58, 


A 1660 ; 40 then traverse the subtree forses in this node. Use a simple 
. : 3 nsertion sort to get the symbols in increasing order of value. 
59 aaa 9 1 go A 1 mov | alpfl,r9 ; get root of alpha table 
FC69 CF F QA? 1? 4 ushab alp_traverse i; push prefix-scan routine 
3 18 A 1665 208: sb a(sp)+ 3 9° next symbol 
cB A 16 § Loc rd, ; f end of tree reached 
53. 05 AA46 —E OA 1 movab ayags -syape) oie }0) hres. r3 5 setup pointer to end of prefix 
52 04 AA A QA8D 1 8 movzbl sym$t_symbol(r10),r 3; Get ength of symbol 
52 28 cs A911 subl ro,r i Length left after prefix 
04 1) AIS 16 cmpl r ; Must be at least 4 chars left 
A 19 QA97 19 blss 2 ; If not, no matc 
24 3 1 A991 cmpb (r3)+,#*a'$' ; Must be followed by $ 
ae AIC 167 beql 5 :; Branch if valid 
SF 8F FF AS 91 QASE 1674 cmpb -1(r3),#*a'_' ; Allow underscore as alternate 
p is AAS 1675 bneq 208 ; Branch if not valid 
54 4 AA 1976 25$: mov l r3,r4 ; Save pointer 
FO45 CF O08 8 A QAA8B 167 locc (r$)+,#typelen, typetab ; Check if valid type 
D 13° OAA 1678 beql ; Branch if not a valid type 
43 BF 61 91 OABO 167 cmpb (r1),#*a/C/ ; check if constant symbo 
3 12 OAB4 1680 bneq ; if not, continue processing 
6A OBA Bi QAB6 1681 cmpw ucb$w_size(r5),sym$l_value(r10) ; see if Length oe ol we want 
C7 12 ABA 1682 bneq (208 : if not, ignore it 
eceeeran" D ABC 16 tstl Gey tce,reut ; if no extension, this must be 
1 AC2 1684 beql 0$ ; length of ucb, so insert 
5F BF 83 91 QOACS 1685 268: cmpb (r3)+,#*a'_* ; Must be followed by underscore 
12 act 1936 bneq 208 ; Branch if not 
GAA 1688 ; It is now clear that the symbol is valid. The question now remains 
ACA 1689 ; is it a valid ucb symbol. If it lies in the standard ucb range 
ay 1690 ; insert it into the table, no questions asked. If it is in the 
ACA 1691 ; extension region, check to see if it is part of this device's 
ney 1636 3 symbols. If it is, insert into table, otherwise ignore it. 
00000090 8F 6A 01 OACA 1694 © cmpl sym$l_value(r10),#ucb$c_length ; part of standard ucb? 
05 18 QAD1 1695 bgeq tbs i; grt, part of extension 
0190 30 OAD3 1696 30$: bsbw table_insert ; Insert symbol and value into table 
AB SO nos et brb 208 ; get next symbol 
AD 19%) 3 Symbol Lies in the extension region 
ADs 170% dos 
0000072B'EF oD AD&8 17 tstl device_rout ; check for valid address 
1 ADE 17 beql 45$ 3; no device extension 
0000072B'EF DD OAEO 1704 ushl device_rout ; device dependent routine 
1 AE6 1705 jb a(sp)+ ; check if valid ucb symbol 
8 5 E AES 17 $ Lbs r0,50$ ; valid, so insert into table 
02 38 AS 00000000‘ 8F ' AEB 1707 45$: bbs Sdevbv.elg.ucbSi_devchar(r5), 508 =; error Logging symbol? 
8D 1 we 4 brb 20$ ; not valid, so ignore it 
a 179 3 Error Logging Device 
2 DD OAF Hats Sos: pushl "3 ; address of symbol 
D OAF8 171 pushl ; length of symbol 
0o0o0Beh eer? hs Fe Base 111s atts? BTUELTH- SEE ymbo : APRS abet Mectabte 
calls ° _ucbsymbo ; is 
C9 3 E 9 1716 blbs r 48s i; yes, insert in table 
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VO4 ucb_sort_offsets, sort offsets for the u ease 83:92:48 SDA.SRCJSYMBOLS.MAR; 1 - (23) 
FF76 «631 «Ok . ] ] brw 208 i no, ignore it 
Ps P+ 
pe 4 ! : Disks and Tapes 
BOD 1721 ucb_dt 
DD OB0D 1 § pushl rr ; address of symbol 
33 D QBOF 1 pushl f¢ ; length of symbol 
00000813'EF F O€ } if 4 pushab disks fapes ; table of valid symbols 
00000BBA ' EF FB OB17 1725 calls #3,valid_ucbsymbol i is there a match 
22 —8 0B! 1 § blbs r it ; if set, symbol valid 
DD 08 1 pushl fr i check tables of mscp or local 
pe DE if 8 ushl f¢ ; Length of symbol 
08 3C AS 44 44 F 3 WT: 1 be #dev$v_mscp,ucb$l_devchar2(r5),5$ ; mscp device? 
0000 at 7 DE F if pushed ascpext 3; table of mscp symbols 
0000 peo"et 9F 0B36 1g 5$: pushab gist qxt ; table of local disk symbols 
00000BBA' EF 3 «6FB 8 4 ? 19: calls #3,vaTid_ucbsymbol ; do we want this symbol? 
OF : 
05 peti if 5 rsb 
i: 
pB+4 1g ? 3 Terminal Device 
i: $ 
0B44 1739 ucb_term: 
5 DD 0B44 1740 pushl rr ; address of symbol 
3 dD Pt 1741 ushl f¢ ; length of symbol 
08 3C AS 4 4g F 0 0B4 1706 bbs #dev$v_rtt,ucb$l_devchar2(r5),5$ ; set, remote terminal 
0 wh 4 " +h et? ushet sterm_ent ; peote o valid prefixes for 
y: 3; loca rm 
OOOOO77C'EF 9F 0859 1745 5$: pushed phere ext ; table of valid prefixes for remote 
000008BA' EF 3 FB OB5F 1268 108: calls #3,vaTid_ucbsymbol : is there a matc 
oe i 
OE 
0B67 1769 $ Network Device 
0B67 1750 ; 
0B67 1751 ucb_bus: 
53 DD 0867 17 3 pushl ; address of symbol 
52 D 0B69 17 pushl fr ; length of symbol 
e007 OF FS F pae8 1754 pushab bys_ext ; table of valid symbols 
OOO00BBA ' EF 3 FB 0B71 1755 calls #3,valid_ucbsymbol ; is there a match 
0 pare 1728 rsb 
es 
0B79 1738 3 Mailbox device 
Roe 1759 ; b wail 
JE . 
33 DD te: 1589 4585 5 pushl fr ; address of symbol 
2 D vB76 1706 pushl rr ; length of Sysbot 
0000073E EF F B7D 6176 pushab mailbx_ext ; table of valid protixes 
oonoossA"er,, Of FB MBER Tree ALLS! HEovaltE_cbsymbol i Up there Simatchi®, 
11 38 AS 00000000'8F £1 is 1764 “gaa ev$v_net,ucb$l_devchar(r5),10$° ; check for network mailbox 
3 6—DD Ck 176 pushl r§ ; address of symbol 
2 D B98 1098 pushl ; push Length of symbol 
poorer seat F BIA 178 pushab aetade ext 3; network mailbox prefix 
000008BA ' EF ee. BAD 17 9 calls #3,valTd_ucbsymbol ; check validity 
0 n ie 108: rsb 
1} 1558 3 Journaling Device 
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o000072F*E 
000008BA'EF 03 
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SYSTEM SYMBOL TABLE ROUTINES 16-SEP=1984 01:47: AX/VMS Macro v04-00 Pa 5 ef] 
tts ucbsy bol. valid ucb symbol for th §- r= 138 Bhi 3Zi 48 SDA.SRCJSYMBOLS.MAR;1 - a 
§ : -Ssbttl valid_ucbsymbol, valid ucb symbol for this device 
é ; valid_ucbsymbol 
5 : This routine checks to see if a given gyebot is in the 
3 ; table of symbols that correspond to this device. 
; Inputs: 
: 4(ap) = address of table of symbols for this device 
3 : (ap) = Length of symbol minus prefix 
9¢ 3 2(ap) = address of symbol to check for validity 
38 : Outputs: 
38 : r0 = 1 if a match was found, 0 if no match 
+ 3 Preserves all registers 
64 valid_ucbsymbol: 
001 8 -word “m<r2,r3,r4> 
54 04 ag i) movl rte te ; address of extension symbols 
08 AC 0 be subl e (se) ; subtract $x_ from Length 
0484 OC BC 64 5 5$: cmpc3 = (r4) ,al2(ap) ,a4(r4) > match? 
E 3 8 beql 0$ i; equal, yes 
4 64 rs addw (74) ,74 i; point at next symbol by adding the length 
4 08 cC 08 addl rf ; of symbol + Length of descriptor (8) 
64 01 09 cmpl (r4), #0 ; end of table? 
D 12 10 bneq 3 not equal, no 
0 04 11 clrl r0 3 no match found 
04 \¢ ret 3; return 
15 108: 
50 01 v0 14 mov l #1,r0 3 match found 
04 15 ret 3 return 
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-sbttl sort_offsets, sort offsets for a given structure 


sort_offsets 
This routine constructs a table of pratets for a given 
structure, sorted by value. The table is then used 7 
the FORMAT command to display the contents of a structure. 
Inputs: 

r6/r7 = Descriptor of structure prefix string 
Outputs: 


offset_table = Pointer to array of addresses into symbol table entries 
sorted in numeric order. 


Be te Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge 


ort_offsets: 
Allocate buffer to hold ordered offset table 


movaq offset_table,r2 
r2).r 


pushl  #<256%4>*2 


; Address of quadword 
Address of previous table 
Branch if a peady exists 
Maximum of 320 off 
3 pointers to sym entries 


52 Q0000018'EF 7 
Ns 8 
Dd 


00000800 8F 


#i,allocate 
8 Save address of table 


; Mark table empty 


-ccon 
3 
°o 
< 
- 
= 

o~ 
= 
- 
3 
~ 
ll 

. 


If table already holds offset symbols for the desired 
structure, skip searching the entire symbol table. 


r8,4(r2) 
16 


mee Ge Gee 
oO 
wr 
o 
B 
a] 
- 


; Check if any entries 

3; Skip if none 

3 af perater to first symbol 
; Ge 


l (r8),r1 
50 04 Al A movzbl exes} oyabol (71) 78 ength of first symbol 
3% Ci} 1 capt r0,r6 3; Greater than prefix length? 
1 8 bleay 168 : Skip compare if so 
05S Al 67 3 cmpcS 6,(r7),sym$t_symbol+1(ri) ; Same prefix? 
9 bneq 16$ ; if not, create new structure 
0 rsb ; else just go use it 


DEAN 9S OOO NA NES WIN SO OOD NA UNE WIN O ONO UNE WI 0 OD NOUNS UH - OUOO~I 
< 


QOOOOOIC*EF 58 0 


a 
al 
Sad 
. 
3 
° 
a 
a 


r8,offset_table+4 ; mark Last valid table entry 
rsb 3 exit with newly constructed table 


Find the bigest node in the alpha tree containing the required 
prefix. This is the parent of all other nodes with the prefix, 
30 then traverse the subtree footed n this node. Use a simple 
nsertion sort to get the symbols in increasing order of value. 


be a et a a a ts ts a ts tk as bd bd — bs — a — = 2 a 4 a a os a ts 2 ss ss 


ink ict pie teband- skeet ein eben ee SPREE EFF WWIWIWINIWI III rnonnononunonononun | 
o 
& 
a 
lo 
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AA AAAAAAAOAHAAAAOOOMOOOOCBWDWDDDWADVDODDPOODODOODODOODODOOODOooDoora 


Wwr—Ooc 


59 Q0000010°EF 00 


o 
sad 


mov alpfl.r9 ; get root of alpha table 


SYSTEM 
sort offsets, sort offs 


C2A 


3, OF aR 5 
ae 
vent 
mo BHR 
SF 8F 4 9 
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Symst 


SOOO OOAAOOOOAOOAOOOON 


PPG 


oh 4 8 st et ss at 


FD OWOM ONL NIAFNO 


- a givens "$23 -$ 
i88) maa 


r3)+,#*a'$' 


=1(r3),#*a'_' 
208 


r3,r4 
sf )+, #typelen,typetab 


(r3)+,a*a'_! 


fable. tnaewe 


be 0:80:33 


138 
_symbol+1(r10 
: a “symbol (r10), 
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; push orev iansege routine 


qt next symbo 
a atshes te vend of fi 
refix 
ast Teneth of of symbo . 
henge eft latter Oaths 
be at least 4? chars left 


Llow erscore oe alternate 
ranch not valid 


d type 
Branch if not a yelid t 
Must be followed by a. 
ranch if no 
nsert syabol and value into table 
get next symbol 
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-sbttl table_insert, insert valid symbol into ordered table 


table_insert 


We have a valid ye Search up value ‘3 le to find the right 
lace to insert, then shuffle up all the following entries in 
oth tables. There is one table for the symbol text and one for 
the value of the symbol. The two tables are conti s. The 
table for the pee text is pointed to by the variable, offset_table. 
The table of values is a fixed offset from the offset_table. 


Inputs: 
R = Length of symbol minus the jeneth of the prefix 
R = Pointer to type of symboi (i.e. 8,L,C) 
RB = Address of Last symbol in the table 
R10 = Address of symbol block 


Outputs: 


8 = Updated address of last symbol in the table 
Destroys registers, ri.r3, and ril 


CDSs Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge 


able_insert: 
58 52 4! mov r2,rii 3; save length of symbol 
51 9000 ro 3 mov l gfiset table.rt 3 get start of pointer array 
5 400 C1 3 movab 6*4(F 1) ¢r ; get start of value array 
3.6 66ACO mov l sym$l_value(r10),r3 ; Save symbol value 


; Check to see if character is a constant. The only constant to be 
3; displayed is the Length character. The UCB is a special structure 
3 since it can be of variable length. This is a temporary fix for the UCB. 


WOOD ODO ODOOOODOOOOWO OOO OO OOOOODOOODOOVDOOVOOOVOOODOOOOOOOOOOO@O@wwae 


ORR RRR EERE PWAAANAWWUAIDIRONINININININININ) 4 2 BQO OOOO OOO OO OOOO 


SOD NA AEA 2§ OC ODA NE WIN SO OB NIA UNE IN 3 SO OO NA NE WI 2 O OD NOUN EWP CO ODNOUNE 


a a a et 4 od 9 8 8 es a = a 2 a as a a 


43 BF 64 91 cmpb (r4),#*a/C/ ; is it a xxx$C_yyy symbol? 
14 12 bneq 10$ 3 no, skip on 
3 88 pusher #*m<r1,r2,r3> ; save registers 
64 SB F4A9 CF matche #l Len, Length_sym,r11, (rd) : if Length symbol, o.k. to eroptay 
4 12 bneq 4 : otherwise forget we saw this symbo 
—E BA popr #*n<ri 3 r3> i; restore registers 
53 70000000 8F C8 isl2 #*x70060060,r3 ; make large number so end of table 
58 51 O01 10s capl 4 r8 3; reached end of table yet? 
if bgequ $ : J if so 
82 8 capl r3,(r2)+ ; found right place yet? 
9 blss 20$ ; J if so (signed branch for neg off) 
1 05 tstl (r1)+ ; else advance STRUC_TBL pointer too 
F2 11 brb 10$ ; and loo 
20$: : found place to insert! 
7 DS tstl cise? ; back off VAL_TBL pointer 
be Dd 308: mov (re rii 3 save existing table entries 
4 D movl (r1),r4 S es 
1 A OD movl r10,¢r1)+ 3 save syatel entry pointer 
4 7 SS mov l r3,(r2)+ 3; and value 
6B OD movl r {or ; get values to temp registers 
A a; @ movl r4,r) S eee 
8 1 01 capl ri,r8 ; reached end of table yet? 


La] 
SYSTEM SOL TABLE ROUTES co o ECERCIBEE BUMTENS YARUDEGRSRzot ABB, 8" 8, woes 


C ble 30$ 3; loop if no 
58 iH 09 (By 7 nov eet 3 seve new “sad pointer 
CBD 
OE 4 CBD popr #*n<ri,r2,r3> ; restore registers 
5 OCBF rs ; get next symbol 
cto 1987 
cco (1 


nN 7 
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-Sbttl translate_bits, translate bit mask to alpha string 


translate_bits 


This routine translates a given bit mask into a otetng 
of the names of gach of the bits set in the mask, eac 
separated by delimiters. 


Inputs: 


4(ap) = address of bit definition table 
$520) = bit mask to translate 
2(ap) = descriptor of output buffer 


The bit definition table is formatted as follows: 


valuel,address! 
value2,address 
value5,address 
etc. 


where ‘'value’’ is the bit number and ‘‘address'’ is the 
address of the counted ascii name string associated 
with that bit. 


Outputs: 


The output buffer contains the name string. 
12(ap) = descriptor of result string 
Calling sequence: 
alloc 80,r2 ; allocate output buffer 
movzwl ucb$w_sts(r3),-(sp) ; bit mask to translate 
pushab unit_status 3; address of definition table 
calls #2,translate_bits 3; translate bits into names 
Notice that the output buffer descriptor is not included 
in the argument count so that it stays on the stack after 


SOOO O OOOO OOOO WI I IID ad ad at at ad ad dd ROO 


ANEW 0 OD NA UNE WIN 9 OD NA UNE WWII 9 OO NA EIN 0 OD NOU EWN 0 OO NOAU EO 


POOOOOOOOOOOOOOQOOIOOOOOOAAOAOOOOOOIOOAOOOAOIOOAOOAOAOIOOOOOOOOOooo 
DOS SG MOOOOOOOODOAOOAOOOOOAAOOOOOOAOOOOOAOOOOOOOOOOAOOOOOAOAOOAOOAaO 


SOOOSOCOCOOCOSOOCOCOCOOOOCOOCOOOO OOOO O OOOO OOOoOoOOoO 


0 
the routine is finished. 
translate_bits:: 
007C eword 9 “m<r2,r3,r4,r5,r6> 
52 4 clrl r2 3; starting bit number 
53 Of AC D movq 4(ap),r3 ; get table address & bit mask 
55 Cc AC (7D 3 ! 108 movg 12(aps .r5 ; Output buffer Length, pointer 
1F 54 52 «€1 "bbe r2,r4,50$ ; skip if bit not set 
32 19 1 bsbb grenslate address 3 Brans lave bit number to str. addr. 
- La beql 0$ ; branch if no tranlation 


8 8 
v04=000 translate bits, transtate bit mask to al 'S-SEP-19B¢ 09:36:55 LSpavsAciSYMBoLS-man:1 —*8" (31) 


at 9 9A cbs 1 movzbl (r0)+,r1 ; er Length of string 
T CD 1 sub r5 3; decrement buffer space left 
A CDA 1 blss ; branch if not enough room 
10 AC § 8 CD cmpl . 16(ap) 3; check if first name in string 
ce beql 4 : branch if so 
> § C decl r ; decrement buffer space left 
10 19 QCE blss 90$ i; branch if not enough room 
8 2C 90 cee : 355 movb #*a',',(r6)+ 3 insert comma in between names 
86 0 9 ced § movb (r0)+,(r6)+ ; concatenate name to string 
FA 51 F5.sCOOCEC sobgtr r1,35$ 
CEF } 50$: 
28 D6 OCEF incl r 3 next bit in mask 
ae D1 OCF1 20350 cmpl r2,#31 ; are we done with longword? 
06 15 OCF4 1 bleq 108 ; loop if not 
CF6 ¢ 
CF6 90$: 
Oc AC 56 10 AC C3 OCF6 34 subl3) 16(ap),r6,12(ap) ; length of result string 
ach 035 status success 
04 0D0 036 ret 
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The bit definition table is formatted as follows: 
valuel,address1 

value2,address 

value5,address 

etc. 

-1,-1 

where ‘'value’’ is a possible value in r2 and ‘‘address"’ is 
the address to be returned when value is encountered 


v04- translate_address, translate value to -SEP-1 SPA. SRCISYMBOLS.MAR;1 
. 2 ; -SBTTL translate_address, translate value to an address 
D04 
4 2 translate_address 
DO4 This routine translates a given value into a an address 
r based upon the contents of a definition table 
D04 Inputs: 
D04 
D04 rg = value to translat 
4 2 r = address of the Jefinition table 
D04 
D04 
D04 
D04 
4 
4 
4 


4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 


Outputs: 


condition codes: 
NEQ ==> match for value found in the table 
EQL ==> no match for value found in the table 
r0 = the address associated with value 


Calling sequence: 


setup the test value 

setup table address 
translate value into address 
test for no match found 


mov l test_value, r2 
movab table, r 
sb trans(ate address 
eql error 


trenstote _address:: 


BGDOOOOOOOOOOOOOSOOOCOCOOOOOOOOSoO 


CUIAIWITIOM EO BNL LLL LLL LLL LPP PPP PPP EEE 


4 
4 
4 
4 
4 
4 
4 
4 
6 
6 
6 
6 
6 
6 
? 
? 
? 
? 
? 
? 
? 
? 


E 
0 
p 
0 
r 


OONAWNE WN SO OONA UE WIN 9 OO A IE WWI OS OD NAMES WP OWODNAUNSE 


D 
50 53 00 OD movl r0 3 start the search 
52 86 D1 OD 10$: cmpl 365° r2 ; does value match table entry? 
of i D beql 50$ ; branch if no match 
! D D tstl (r0)+ 3 move to next value in table 
F 18 OD bgeq 10$ : branch if next entry exists 
50 D4 OD1 clrl r0 : else signal no matc 
05 4 rsb : and exi 
D1 : found a match 
50 60 0 D1 50$ mov (r0), r0 3; pickup edarase entry from table 
0 D1 rsb 3 and return 


04000 translatenaddress. transtate value to an 'ScSEP-198e O3:44:45 Eedavsachovmsorscman:1 "28° (85, 


Opi? $092 .END 


SYMBOLS 
Symbol table 
$5.1) 
$$.TMP 
ADDRESS 
ADD_NEW_ENTRY 
ADD SYMBOL 
ALLOCATE 
ALPFL 
ALP_TRAVERSE 
ARGS 

BUF FE 

BUS _EXT 
CLUSGL_CLUB 
CLUSGL"LOA_ADOR 
CLUSTRCOA 
COLUMN 


DPTS$T_NAME 
DYNSC~ SPECIAL 
DYNSC” SUBTYPE 
DYN_MAINPTR 


YN~MAP 
DYN-PTR 
DYN” SUBPTR 
DYN-T 
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00000eF 


eeereeee 


geeeeane 


geeerenre 
geererene 
eeeeerne 
geeeeene 
reerenne 
geraereee 
000003F 2 
gkeraerene 
geeerenre 
geeteene 
reeerene 


geraekaene 
ereakene 
geerenee 
eeereeee 
rteererne 


C 
D 
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se ieieioieiolelq) 
PIPMPPIPININIPINININI HS LLL SE 


QHaqa wm wn wweMmMmmnnh 


L~IDTBL 
KSGL~MAXID 


Sr se tt ss st 


MCHK ~ 
MMGSAL_SYSPCB 
MMGSFRSTRONLY 

NS FELL ERUL BASE 


MMG$GL"PAGEDYN 
MAGSGLRASBASE 


MAGSGL~SPTBASE 
MMGSGL~SPTL 


MMGSGL-VAXEMUL_BASE 
RAGS LAGHORBUF 
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DDBDDADDDAD 
OOOOOCOCOOOOOSOSOSSOSOSSSSOSO COCOOCOSOSOSOOOSO COOCOO 
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~SEP~1984 SDA. SRCISYMBOLS.MAR; 1 
PHDSL_ ° ; 
MSCP_EXT ttt Ca R ; st tt “48 : 38 : 
MSG$"BADGSD aeiec odes OG. 4 : 9 
eee. LNVeLKTYP ceeeeces XO PHDSL-R . y ; 
Seat YMBOLS poomaene Ry 0 i+ ge 2 As 
THX teeeeees Xx 04 PHDSL SSP . ? ; 
NODESC -LENGTH . PIXBAS E3 RG : 
WODESL LEFT . aie IOIAPA Ag RG 08 ; 
NODES “RIGHT 2 4 EFIXILEN © Neseees a ts ; 
NODE $W~BAL ” ae 3 PRINT _LIST O0005E2 R 4 : 
Srnec BR Oa INT=PAGE 7. 6 
19 = 000000 PRINT-SYMBOLS OO002A2 RG : 
eaten . ; PRTBUFLEN = O34 
8-1 : ieee ph gurat * RHEE 5g : 
“680 _EPR = 99000008 pretty agen Re 
0BJ$C~GSD-PSC = 9900000) READ. SYMBOLS 4-45 An : 
OBJ$C-GSD-SYM = Boototos G TABLE 000000 04 : 
OBJ$L_SYM_VALUE = 000000 RELOCATE “BASE eeenenee 04 ; 
OBJ$T_EPM_NAME . 4 49404 REOMEM eeeeneee YX 04 ‘ 
OBJ$T_PSC_NAME . 90000009 REQ_ SYMBOLS 0000000 R 02 : 
OB JST _SYR_NAME = 00000001 REQ7 SYMBOLS. LEN = 9000067¢ : 
OBJSV_SYM_DEF REWIND STB ~ 900013 RG 04 : 
Cassy, SYM" FLAGS = at 4 64 03 RMS. 00006 bg : 
SET TABLE 0000018 R 0% RMSS. EOF eereeere =X 4 : 
oA Fa ENS. 00000388 RG ROWS” s 9000003 . 
PFNSAB_STATE pop OO sae RG RTER 00 : 
PENSAP BAK’ 000003DC RG SCHSGC_CURPCB 0000483 RG 
he gers 403 Re SCHSGL-FREECNT 0000495 RG 
PENSAT OO0O3E8 Re SCHSGL-MAXPIX Q0004BA RG ; 
Preparntorinit OOOOSFE. Re §CHSGL~PCBVEC Q0004A8 RG ; 
PFNSAL-LOLIMIT B79 Re SCH$GO7SU 900061) RG : 
OE NRAUmR D0004s2 Re SCHSQAST 0000569 RG : 
PFNSAW_REF CNT 9449 6 a SCHSWAITK SO0060F RG 
hes 9000481 Re SCHSWAKE 0000602 RG : 
hes AT 464 RG SCSSGA_EXISTS Q0004CC RG 
Or Neanen tse Re OO SCS$GA“LOCALSB 4DE RG 
FNSA_BASE _ 7 SCS$GL-COL 4F1 RG 
PHDSL ESP s ? Hat tte He 290 RG 
4 eS . ¢ SCS$GL—PDT RG 
PHDSL _POBR > ¢ SCS$GL-RDT F RG 
ee ep yhaAstL : 56 SCS$G0~CONFIG RG 
4 tte ° D4 SCS$GQ"DIRECT RG 
PHDSL_PILR CO SCSLOA™ 6E5 R 
nd ge : 4 SET HEADING eecscese =x 08 
4 ge : 8 SGNSGL_BALSETCT 2 RG 
pups. RO : SGNSGL PAGED YN RG 
PHDSL-RI : 6 SGNSGW”ISPPGCT 63 RG 06 
PHDSL-R11 s SORT OFFSETS etereere x 4 
PHD$L_R1 ° 8 STBF geareteee x 4 
PHDSL-R1 . 


SS 
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$ 

S$ table “SEP-1 SDA.SRCISYMBOLS.MAR;1 

STB_BUFFER eeereree = 8§ 6 ¢ 

STB_PTR 44 R 

STORAGE SIZE = 

STRUCTURE RG 

SWPSA_KSTK RG 

Sur SGC _BALBASE RG 

SWPSGL_BSLOTS rt) RG 

SWPSK_RSTKSZ RG 

SYMSC_LENGTH = 

SYMSL_VALUE S 

SYMST SY z= 

SymBOC17ZE F RG 4 

SYMBOL _VALUE rae 4 

SY CR 3 

SYSSCLOSE eetereree GX 4 

SYSSFAO geeerere x 4 

SYSSGET eeeeeeee § GX 4 

$YS$GQ_VERSION 0000598 RG § 

SYSLOA 0000607 R 

TABLE _INSERT 00 ° 98 R 4 
= 

TRANSCTL1 09 is 5 % 

TRANSCTL2 0 is R 4 

TRANSLATE <popeess 3 DO4 RG Be 

TRANSLATE | BITS CCO RG 4 

TRANSLT 4 004 R 3 

TRAVERSE 0006C7 R 4 

TRYMEM geekenre x 4 

TYPELEN = 0000000 

TYPETAB 00007F3 R 04 

UCB$B_DEVCLASS 

BSC"LENGTH 


UCBSC_L 
UCBSL-DEVCHAR 
UCBSi_DEVCHAR2 

UCBSW"SIZE 


nnnnnu 
ooo 
oooo 
i=) 
ooo 
So 
NOOO 


* 0 8 R 4 
UCB_DT $ 8 4 
UCB~ JOURNAL R ‘ 
UCB_ PREF Ix i3 R 4 
UCB. SORT OFFSETS A35 R 4 
RuCT ° 028 R 3 
44 R 4 
ver UCBSYMBOL AR 4 
XEMOL CBR 2 
wet eee ee reo een ae + 
; ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS . 0 ( » 00 ¢ 9.) NOPIC USR CON ABS~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABS$ ( <a .) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
ZREQSYMS DS ( 2515.) ; ( ¢:} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
SDADATA ( 13.) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
SYMBOLS 0000D ( 3351.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


SYMBOLS 
Psect synopsis SDA.SRCJSYMBOLS. 
LITERALS OOOOOICA («¢ 458.) O05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


i en 2 


! Performance indicators ! 


peer nme meme een enw nn ore cn $ 


Phase Page faults CPU Time Elapsed Time 


Initialization :00: 0 :00:00. 

xonners processing 700: “38 : + ‘ 

bribe table sort mt :00: 13 :00:05. 

Symbol table output 3 00:00. :00:00.61 

Psect synopsis output :00. ‘ f 
Cross-reference output :00. :00. 

Assembler run totals 105 00:19. 12.16 

vert ive ses awe was 4609 pages. 
3 73 bytes (246 pages) rs) rtust memory were used to buffer the intermediate c 


de. 
There were 80 pages of symbol table space ar egeete to hold 1425 non-local ag 168 local symbols. 
fore source lines were read in Pass 1, produc ing 6 object records in Pass 
42 pages of virtual memory were used to define 40 macros. 


tere ewer enr eee ween occe eecececeens? 


! Macro Library Statistics : 


A cmpeeniettee woe women eee eee ee + 


Macro Library name Macros defined 


$33 SDUA28 o08 4 {Spat 18 m8: 1 13 
55$DUA gts 0831 10 
55$DUA SYSLIBJSTARLET. MLB; 2 11 
+8258 (all Libraries) 34 


1506 GETS were required to define 34 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYMBOLS/OBJ=0BJ$:SYMBOLS MSRC$:SYMBOLS/UPDATE=(ENHS: SYMBOLS) +EXECML$/L1IB+LIB$:SDALIB/LIB 
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